home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / COMPILER.FAS < prev    next >
Text File  |  1994-02-05  |  266KB  |  4,100 lines

  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
  4.    (COMPILER COMPILE COMPILE-FILE DISASSEMBLE)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 01 D5 67 01 37 03 30 B7 0F 01 19 01) COMPILER *FEATURES*)
  7. #Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "COMPILER")
  8. #Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D5 37 01 30 D8 19 01)
  9.    (FUNCTION-NAME-P PARSE-BODY MAKE-LOAD-TIME-EVAL CLOSURE-NAME CLOSURE-CODEVEC CLOSURE-CONSTS
  10.     FIXNUMP SHORT-FLOAT-P SINGLE-FLOAT-P DOUBLE-FLOAT-P LONG-FLOAT-P SEARCH-FILE *DATE-FORMAT*
  11.     %FUNTABREF INLINABLE *COMPILING* *COMPILING-FROM-FILE* *INLINE-FUNCTIONS* *VENV* *FENV* *BENV*
  12.     *GENV* *DENV* *TOPLEVEL-DENV* C-PROCLAIM C-PROCLAIM-CONSTANT C-DEFUN C-PROVIDE C-REQUIRE
  13.   ))
  14. #Y(#:TOP-LEVEL-FORM-6 #13Y(00 00 00 00 00 01 D5 37 01 30 D8 19 01) (VERSION SUBR-INFO))
  15. #Y(#:TOP-LEVEL-FORM-7
  16.    #28Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 6D CB 31 75 C0 19 01)
  17.    *KEYWORD-PACKAGE* "~S redefines the constant ~S. Its old value was ~S."
  18.    (DEFCONSTANT *KEYWORD-PACKAGE* (FIND-PACKAGE #1="KEYWORD")) WARN #1#
  19.   )
  20. #Y(#:TOP-LEVEL-FORM-8
  21.    #28Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 6D CB 31 75 C0 19 01)
  22.    *LISP-PACKAGE* "~S redefines the constant ~S. Its old value was ~S."
  23.    (DEFCONSTANT *LISP-PACKAGE* (FIND-PACKAGE #1="LISP")) WARN #1#
  24.   )
  25. #Y(#:TOP-LEVEL-FORM-9 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  26.    (SPECIAL *COMPILING*) *COMPILING*
  27.   )
  28. #Y(#:TOP-LEVEL-FORM-10 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 60 30 53 C1 19 01)
  29.    (SPECIAL *COMPILE-WARNINGS*) *COMPILE-WARNINGS*
  30.   )
  31. #Y(#:TOP-LEVEL-FORM-11 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 60 30 53 C1 19 01)
  32.    (SPECIAL *COMPILE-VERBOSE*) *COMPILE-VERBOSE*
  33.   )
  34. #Y(#:TOP-LEVEL-FORM-12 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *COMPILING-FROM-FILE*)
  35.    *COMPILING-FROM-FILE*
  36.   )
  37. #Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *C-LISTING-OUTPUT*)
  38.    *C-LISTING-OUTPUT*
  39.   )
  40. #Y(#:TOP-LEVEL-FORM-14 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *C-ERROR-OUTPUT*)
  41.    *C-ERROR-OUTPUT*
  42.   )
  43. #Y(#:TOP-LEVEL-FORM-15 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *KNOWN-SPECIAL-VARS*)
  44.    *KNOWN-SPECIAL-VARS*
  45.   )
  46. #Y(#:TOP-LEVEL-FORM-16 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CONSTANT-SPECIAL-VARS*)
  47.    *CONSTANT-SPECIAL-VARS*
  48.   )
  49. #Y(#:TOP-LEVEL-FORM-17 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  50.    (SPECIAL *FASOUTPUT-STREAM*) *FASOUTPUT-STREAM*
  51.   )
  52. #Y(#:TOP-LEVEL-FORM-18 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  53.    (SPECIAL *LIBOUTPUT-STREAM*) *LIBOUTPUT-STREAM*
  54.   )
  55. #Y(#:TOP-LEVEL-FORM-19 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  56.    (SPECIAL *FUNCTIONS-WITH-ERRORS*) *FUNCTIONS-WITH-ERRORS*
  57.   )
  58. #Y(#:TOP-LEVEL-FORM-20 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *KNOWN-FUNCTIONS*)
  59.    *KNOWN-FUNCTIONS*
  60.   )
  61. #Y(#:TOP-LEVEL-FORM-21 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *UNKNOWN-FUNCTIONS*)
  62.    *UNKNOWN-FUNCTIONS*
  63.   )
  64. #Y(#:TOP-LEVEL-FORM-22 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *UNKNOWN-FREE-VARS*)
  65.    *UNKNOWN-FREE-VARS*
  66.   )
  67. #Y(#:TOP-LEVEL-FORM-23 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *INLINE-FUNCTIONS*)
  68.    *INLINE-FUNCTIONS*
  69.   )
  70. #Y(#:TOP-LEVEL-FORM-24 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *NOTINLINE-FUNCTIONS*)
  71.    *NOTINLINE-FUNCTIONS*
  72.   )
  73. #Y(#:TOP-LEVEL-FORM-25 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *INLINE-DEFINITIONS*)
  74.    *INLINE-DEFINITIONS*
  75.   )
  76. #Y(#:TOP-LEVEL-FORM-26 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *USER-DECLARATION-TYPES*)
  77.    *USER-DECLARATION-TYPES*
  78.   )
  79. #Y(#:TOP-LEVEL-FORM-27 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *COMPILED-MODULES*)
  80.    *COMPILED-MODULES*
  81.   )
  82. #Y(#:TOP-LEVEL-FORM-28 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *PACKAGE-TASKS*)
  83.    *PACKAGE-TASKS*
  84.   )
  85. #Y(#:TOP-LEVEL-FORM-29-1 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 3D 19 01)
  86.    %RECORD-REF SETF-EXPANDER %RECORD-STORE SETF %SET-DOCUMENTATION
  87.   )
  88. #Y(#:TOP-LEVEL-FORM-29-2 #22Y(00 00 00 00 00 01 D5 D6 D7 C3 76 31 7A D5 D9 5F 2C 03 05 3D 19 01)
  89.    CLOSURE-NAME SETF-EXPANDER -1.
  90.    #Y(SETF-CLOSURE-NAME #17Y(02 00 00 00 00 03 9A 57 74 D5 A8 D6 AC 5C 04 19 04) %RECORD-STORE 0.)
  91.    SETF %SET-DOCUMENTATION
  92.   )
  93. #Y(#:TOP-LEVEL-FORM-29-3 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-CLOSURE
  94.    REMOVE-OLD-DEFINITIONS
  95.    #Y(MAKE-CLOSURE #25Y(00 00 00 00 80 1B 03 00 00 00 3C 03 3C 02 3C 01 AA AA 6E 32 AA 31 33 19 04)
  96.       :NAME :CODEVEC :CONSTS
  97.   )  )
  98. #Y(#:TOP-LEVEL-FORM-30
  99.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  100.    INSTRUCTION-TABLE "~S redefines the constant ~S. Its old value was ~S."
  101.    (DEFCONSTANT INSTRUCTION-TABLE
  102.     '#1=#((NIL O) (PUSH-NIL N) (T O) (CONST K) (LOAD K) (LOADI NN) (LOADC NN) (LOADV NN)
  103.           (LOADIC NNN) (STORE K) (STOREI NN) (STOREC NN) (STOREV NN) (STOREIC NNN) (GETVALUE N)
  104.           (SETVALUE N) (BIND N) (UNBIND1 O) (UNBIND N) (PROGV O) (PUSH O) (POP O) (SKIP N)
  105.           (SKIPI NN) (SKIPSP N) (SKIP&RET N) (JMP L) (JMPIF L) (JMPIFNOT L) (JMPIF1 L)
  106.           (JMPIFNOT1 L) (JMPIFATOM L) (JMPIFCONSP L) (JMPIFEQ L) (JMPIFNOTEQ L) (JMPIFEQTO NL)
  107.           (JMPIFNOTEQTO NL) (JMPHASH NHL) (JMPHASHV NHL) (JSR L) (JMPTAIL NNL) (VENV O)
  108.           (MAKE-VECTOR1&PUSH N) (COPY-CLOSURE NN) (CALL NN) (CALL0 N) (CALL1 N) (CALL2 N)
  109.           (CALLS1 B) (CALLS2 B) (CALLSR NB) (CALLC O) (CALLCKEY O) (FUNCALL N) (APPLY N)
  110.           (PUSH-UNBOUND N) (UNLIST NN) (UNLIST* NN) (JMPIFBOUNDP NL) (BOUNDP N) (UNBOUND->NIL N)
  111.           (VALUES0 O) (VALUES1 O) (STACK-TO-MV N) (MV-TO-STACK O) (NV-TO-STACK N) (MV-TO-LIST O)
  112.           (LIST-TO-MV O) (MVCALLP O) (MVCALL O) (BLOCK-OPEN NL) (BLOCK-CLOSE O) (RETURN-FROM N)
  113.           (TAGBODY-OPEN NLX) (TAGBODY-CLOSE-NIL O) (TAGBODY-CLOSE O) (GO NN) (CATCH-OPEN L)
  114.           (CATCH-CLOSE O) (THROW O) (UNWIND-PROTECT-OPEN L) (UNWIND-PROTECT-NORMAL-EXIT O)
  115.           (UNWIND-PROTECT-CLOSE O) (UNWIND-PROTECT-CLEANUP O) (NOT O) (EQ O) (CAR O) (CDR O)
  116.           (CONS O) (SYMBOL-FUNCTION O) (SVREF O) (SVSET O) (LIST N) (LIST* N) (ERROR N)
  117.           (NIL&PUSH O) (T&PUSH O) (CONST&PUSH K) (LOAD&PUSH K) (LOADI&PUSH NN) (LOADC&PUSH NN)
  118.           (LOADV&PUSH NN) (POP&STORE N) (GETVALUE&PUSH N) (JSR&PUSH L) (COPY-CLOSURE&PUSH NN)
  119.           (CALL&PUSH NN) (CALL1&PUSH N) (CALL2&PUSH N) (CALLS1&PUSH B) (CALLS2&PUSH B)
  120.           (CALLSR&PUSH NB) (CALLC&PUSH O) (CALLCKEY&PUSH O) (FUNCALL&PUSH N) (APPLY&PUSH N)
  121.           (CAR&PUSH O) (CDR&PUSH O) (CONS&PUSH O) (LIST&PUSH N) (LIST*&PUSH N) (NIL&STORE N)
  122.           (T&STORE N) (LOAD&STOREC NNN) (CALLS1&STORE BN) (CALLS2&STORE BN) (CALLSR&STORE NBN)
  123.           (LOAD&CDR&STORE N) (LOAD&CONS&STORE N) (LOAD&INC&STORE N) (LOAD&DEC&STORE N)
  124.           (LOAD&CAR&STORE NN) (CALL1&JMPIF NL) (CALL1&JMPIFNOT NL) (CALL2&JMPIF NL)
  125.           (CALL2&JMPIFNOT NL) (CALLS1&JMPIF BL) (CALLS1&JMPIFNOT BL) (CALLS2&JMPIF BL)
  126.           (CALLS2&JMPIFNOT BL) (CALLSR&JMPIF NBL) (CALLSR&JMPIFNOT NBL) (LOAD&JMPIF NL)
  127.           (LOAD&JMPIFNOT NL) (LOAD&CAR&PUSH N) (LOAD&CDR&PUSH N) (LOAD&INC&PUSH N)
  128.           (LOAD&DEC&PUSH N) (CONST&SYMBOL-FUNCTION N) (CONST&SYMBOL-FUNCTION&PUSH N)
  129.           (CONST&SYMBOL-FUNCTION&STORE NN) (APPLY&SKIP&RET NN)
  130.    )     )
  131.    WARN #1#
  132.   )
  133. #Y(#:TOP-LEVEL-FORM-31
  134.    #34Y(00 00 00 00 00 01 D5 D6 6E 41 1A 0D D6 9A 5A 74 A7 D7 AB 31 7A 16 01 81 01 A8 A8 8D 01 30
  135.         6D 00 19 03
  136.        )
  137.    0. #.INSTRUCTION-TABLE INSTRUCTION
  138.   )
  139. #Y(#:TOP-LEVEL-FORM-32
  140.    #58Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 DA DB 6E 41
  141.         1A 0D DB 9A 5A 74 A7 AB AB 30 65 16 01 81 01 A8 A8 8D 01 30 6D 16 02 31 75 C0 19 01
  142.        )
  143.    INSTRUCTION-CODES "~S redefines the constant ~S. Its old value was ~S."
  144.    (DEFCONSTANT INSTRUCTION-CODES
  145.     (LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
  146.      (DOTIMES (I (LENGTH INSTRUCTION-TABLE))
  147.       (SETF (GETHASH (FIRST (SVREF INSTRUCTION-TABLE I)) HASHTABLE) I)
  148.      )
  149.      HASHTABLE
  150.    ))
  151.    WARN #.#'EQ 0. #.INSTRUCTION-TABLE
  152.   )
  153. #Y(#:TOP-LEVEL-FORM-33
  154.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  155.    INSTRUCTION-TABLE-K "~S redefines the constant ~S. Its old value was ~S."
  156.    (DEFCONSTANT INSTRUCTION-TABLE-K '#1=#(LOAD LOAD&PUSH CONST CONST&PUSH STORE)) WARN #1#
  157.   )
  158. #Y(#:TOP-LEVEL-FORM-34
  159.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  160.    SHORT-CODE-BASE "~S redefines the constant ~S. Its old value was ~S."
  161.    (DEFCONSTANT SHORT-CODE-BASE 152.) WARN 152.
  162.   )
  163. #Y(#:TOP-LEVEL-FORM-35
  164.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  165.    SHORT-CODE-OPSIZE "~S redefines the constant ~S. Its old value was ~S."
  166.    (DEFCONSTANT SHORT-CODE-OPSIZE '#1=#(15. 25. 21. 33. 10.)) WARN #1#
  167.   )
  168. #Y(#:TOP-LEVEL-FORM-36
  169.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  170.    SHORT-CODE-OPS "~S redefines the constant ~S. Its old value was ~S."
  171.    (DEFCONSTANT SHORT-CODE-OPS '#1=#(152. 167. 192. 213. 246.)) WARN #1#
  172.   )
  173. #Y(#:TOP-LEVEL-FORM-37
  174.    #57Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 DA 1A 0F A7
  175.         6D 00 8F 00 05 14 AA AA 30 65 16 01 81 00 A7 DB 8D 01 30 6B 16 01 31 75 C0 19 01
  176.        )
  177.    FUNCTION-CODES "~S redefines the constant ~S. Its old value was ~S."
  178.    (DEFCONSTANT FUNCTION-CODES
  179.     (LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
  180.      (DOTIMES (I (* 3. 256.))
  181.       (LET ((SYM (%FUNTABREF I))) (WHEN SYM (SETF (GETHASH SYM HASHTABLE) I)))
  182.      )
  183.      HASHTABLE
  184.    ))
  185.    WARN #.#'EQ 0. 768.
  186.   )
  187. #Y(#:TOP-LEVEL-FORM-38
  188.    #58Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 1A 14 9D 16 06 1A 18 A7 6D
  189.         00 A7 30 01 41 04 8E 00 70 16 05 81 00 A7 DA 8D 01 30 6B 00 16 01 14 31 75 C0 19 01
  190.        )
  191.    FUNTABR-INDEX "~S redefines the constant ~S. Its old value was ~S."
  192.    (DEFCONSTANT FUNTABR-INDEX
  193.     (DOTIMES (I (* 3. 256.))
  194.      (LET ((SYM (%FUNTABREF I)))
  195.       (MULTIPLE-VALUE-BIND (NAME REQ OPT REST-P) (SUBR-INFO SYM) (DECLARE (IGNORE NAME REQ OPT))
  196.        (WHEN REST-P (RETURN I))
  197.    ))))
  198.    WARN 0. 768.
  199.   )
  200. #Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CALLS-CODE
  201.    REMOVE-OLD-DEFINITIONS
  202.    #Y(CALLS-CODE
  203.       #27Y(01 00 00 00 00 02 A8 D5 8C 01 2D 0B D7 D8 AA 32 02 33 14 5C 02 19 02 D6 9A 1A 77) 256.
  204.       CALLS1 CALLS2 -256.
  205.   )  )
  206. #Y(#:TOP-LEVEL-FORM-40 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) MEMQ
  207.    REMOVE-OLD-DEFINITIONS MACRO
  208.    #Y(MEMQ
  209.       #54Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 19 9A 57 74 9B 57 57 74 A7 89 5F 06 A7 6D 5C 8A
  210.            08 0D DA A9 A9 C6 5D 03 19 05 A9 2E 01 19 03 D7 A9 A9 6D 5C C3 76 C4 1A 6D
  211.           )
  212.       3. MACRO-CALL-ERROR CASE (T) ((T NIL)) MEMBER (:TEST #'EQ)
  213.   )  )
  214. #Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILER-ERROR
  215.    REMOVE-OLD-DEFINITIONS
  216.    #Y(COMPILER-ERROR #13Y(01 00 01 00 00 08 3C 01 D5 AA AA 5E 02)
  217.       "Compiler bug!! Occurred in ~A~@[ at ~A~]."
  218.   )  )
  219. #Y(#:TOP-LEVEL-FORM-42 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *STACKZ*) *STACKZ*)
  220. #Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STACKZ-FUN
  221.    REMOVE-OLD-DEFINITIONS
  222.    #Y(STACKZ-FUN #18Y(01 00 00 00 00 02 99 1F 06 A8 30 9C 57 19 02 99 19 02))
  223.   )
  224. #Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) IN-SAME-FUNCTION-P
  225.    REMOVE-OLD-DEFINITIONS
  226.    #Y(IN-SAME-FUNCTION-P #15Y(02 00 00 00 00 03 A9 6B 00 A9 2E 00 55 19 03) STACKZ-FUN)
  227.   )
  228. #Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ZUGRIFF-IN-STACK
  229.    REMOVE-OLD-DEFINITIONS
  230.    #Y(ZUGRIFF-IN-STACK
  231.       #220Y(02 00 00 00 00 03 5F D5 D5 AC 9D 21 80 B0 9D 20 04 D6 D7 2F 03 90 05 A7 8A 09 28 98 1F
  232.             3F 90 00 A7 23 04 24 A7 24 06 2C A9 67 07 6E 89 7E 02 33 02 AA DD 9B 57 74 32 02 33 14
  233.             7E 02 33 03 16 01 1A 80 74 A9 99 1A 80 4C AA DA 9B 57 74 6F 02 35 31 89 1A 65 D6 DE 2F
  234.             03 16 01 1A 80 5A 98 25 0A 80 51 8E 03 3F 99 1A 80 43 A8 DA 67 07 6F 02 33 7E 02 33 01
  235.             C5 1A 1B 14 A9 32 02 33 1A 04 8E 03 76 99 F9 C8 1A 28 A8 DA 67 07 6F 02 33 7E 02 33 01
  236.             C8 14 9B 14 7E 02 33 02 1A 1C 81 01 81 02 1A 16 8F 03 07 14 A9 32 02 33 1A 01 99 F9 CB
  237.             F7 C0 F8 1A 04 D6 E1 2F 03 16 01 7F 05 1A FF 4B 9C 1F 15 90 04 23 0D 0A 9C 56 1F 0C 9C
  238.             56 74 24 06 06 DA A9 7E 02 33 01 A9 A9 3F 02 19 06
  239.            )
  240.       0. ZUGRIFF-IN-STACK "STACKZ-END" COMPILER-ERROR BIND 2. TAGBODY *JMPBUF-SIZE* 3.
  241.       "STACKZ-LISTITEM"
  242.       #S(HASH-TABLE EQ (MVCALL . 65.) (MVCALLP . 59.) (BLOCK . 38.) (CLEANUP . 30.)
  243.          (UNWIND-PROTECT . 9.) (CATCH . 38.) (PROGV . 2.)
  244.         )
  245.       1. "STACKZ-ITEM" BLOCK
  246.   )  )
  247. #Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EXPAND-UNWIND
  248.    REMOVE-OLD-DEFINITIONS
  249.    #Y(EXPAND-UNWIND
  250.       #271Y(03 00 00 00 00 04 00 2A 04 00 0B 00 00 C0 0B 00 01 0B 00 02 00 0B 00 03 A7 69 01 01 AC
  251.             9D 21 80 E5 9D 20 04 D7 D8 2F 04 90 05 A7 8A 09 1D 98 1F 2E 90 00 A7 23 05 1A A7 24 07
  252.             1B 9A 33 C8 14 06 04 03 58 0B 03 03 16 01 1A 80 B4 64 02 01 99 1A 37 9A 33 C6 1A 68 D7
  253.             DE 2F 04 16 01 1A 80 A0 98 25 0A 80 97 99 33 E0 06 03 03 58 0B 02 03 CC 0B 02 02 1A 80
  254.             8A 64 02 02 E2 67 0E 6F 02 33 32 02 33 0B 02 02 E4 06 03 01 14 32 02 33 0B 02 01 1A 80
  255.             6D 7A 04 E5 06 03 03 58 0B 02 03 D1 1A 22 99 33 8F 04 6E D1 1A 1A 14 64 03 02 32 02 33
  256.             1A 08 06 02 00 1B 72 06 02 02 0B 02 00 CF 1A 34 99 33 D2 14 06 03 03 58 0B 02 03 1A 34
  257.             64 02 02 31 89 0B 02 02 64 02 01 31 89 0B 02 01 1A 22 14 64 03 02 32 02 33 1A 08 06 02
  258.             00 1B 72 06 02 02 0B 02 00 CC 0B 02 02 C0 0B 02 01 1A 04 D7 E8 2F 04 16 01 7F 05 1A FF
  259.             16 98 33 64 01 03 31 43 19 06
  260.            )
  261.       0.
  262.       #Y(EXPAND-UNWIND-HERE
  263.          #112Y(00 00 00 00 00 01 07 00 01 1B 38 65 00 02 D7 8D 01 2E 0D DD 65 00 02 77 02 07 00 04
  264.                58 0C 00 04 65 00 03 D7 8D 01 2E 0E DC 07 00 03 14 77 02 07 00 04 58 0C 00 04 00 0C
  265.                00 01 C2 0C 00 02 0C 00 03 19 01 D6 65 00 01 65 00 02 77 03 07 00 04 58 0C 00 04 65
  266.                00 03 D7 8D 01 2F 04 D8 D9 2F 05 65 00 03 DB 8D 01 2E 4F DC 65 00 03 31 8A 1A FF BC
  267.               )
  268.          NIL SKIPI 0. EXPAND-UNWIND "SP-depth" COMPILER-ERROR 1. SKIPSP SKIP
  269.         )
  270.       EXPAND-UNWIND "STACKZ-END" COMPILER-ERROR BIND (UNBIND1) TAGBODY (TAGBODY-CLOSE)
  271.       "STACKZ-LISTITEM"
  272.       #S(HASH-TABLE EQ (MVCALL . 132.) (MVCALLP . 105.) (BLOCK . 92.) (CLEANUP . 78.)
  273.          (UNWIND-PROTECT . 61.) (CATCH . 19.) (PROGV . 2.)
  274.         )
  275.       (UNBIND1) 1. 2. *JMPBUF-SIZE* 3. (VALUES0) (UNWIND-PROTECT-CLEANUP) (BLOCK-CLOSE)
  276.       "STACKZ-ITEM"
  277.   )  )
  278. #Y(#:TOP-LEVEL-FORM-47 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FENV*) *FENV*)
  279. #Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FENV-SEARCH
  280.    REMOVE-OLD-DEFINITIONS
  281.    #Y(FENV-SEARCH
  282.       #107Y(01 00 01 00 00 08 3A 01 1C 0E 00 F7 8E 01 19 00 19 03 D9 91 01 3F 02 19 06 90 00 23 04
  283.             74 DA 91 01 9A 56 1A 2C 8F 01 67 A8 8A 20 03 D6 2E 02 A8 6E 41 6E 8A D8 A7 A9 8C 01 2B
  284.             23 AB AB 9A 5A 14 89 FF 13 AA A8 31 89 5A 14 98 20 4D DB AC AA 31 89 14 3F 03 19 06 DC
  285.             A8 7E 02 33 00 1A 57 AA 99 5A F9 16 02 8F 01 FF A7 1A FF BD
  286.            )
  287.       *FENV* FENV-SEARCH COMPILER-ERROR 0. MACRO LOCAL GLOBAL 2.
  288.   )  )
  289. #Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GLOBAL-IN-FENV-P
  290.    REMOVE-OLD-DEFINITIONS
  291.    #Y(GLOBAL-IN-FENV-P #13Y(02 00 00 00 00 03 A9 A9 2F 00 54 19 03) FENV-SEARCH)
  292.   )
  293. #Y(#:TOP-LEVEL-FORM-50 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *BENV*) *BENV*)
  294. #Y(#:TOP-LEVEL-FORM-51
  295.    #285Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
  296.          DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
  297.          E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 EC 30 5B ED 30 5B EE 2E 01 EE DF EF
  298.          31 7A EE F0 31 74 F1 30 5B F2 30 5B F3 2E 01 F3 DF F4 31 7A F3 F5 31 74 61 21 30 5B 61 22
  299.          30 5B 61 23 2E 01 61 23 DF 61 24 31 7A 61 23 61 25 31 74 61 26 30 5B 61 27 30 5B 61 28 2E
  300.          01 61 28 DF 61 29 31 7A 61 28 61 2A 31 74 E4 61 2B 61 2C 03 2D 76 31 7A E4 61 2E 5F 2C 03
  301.          2F E9 61 2B 61 2C 03 30 76 31 7A E9 61 2E 5F 2C 03 2F EE 61 2B 61 2C 03 31 76 31 7A EE 61
  302.          2E 5F 2C 03 2F F3 61 2B 61 2C 03 32 76 31 7A F3 61 2E 5F 2C 03 2F 61 23 61 2B 61 2C 03 33
  303.          76 31 7A 61 23 61 2E 5F 2C 03 2F 61 28 61 2B 61 2C 03 34 76 31 7A 61 28 61 2E 5F 2C 03 2F
  304.          D8 61 35 5F 2C 03 2F D8 61 36 31 7B C3 19 01
  305.         )
  306.    MAKE-BLOCK REMOVE-OLD-DEFINITIONS
  307.    #Y(MAKE-BLOCK
  308.       #65Y(00 00 00 00 80 1B 06 00 00 00 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 DB DC 6E 2C DD A8 DE
  309.            B1 31 2B DD A8 DF B0 31 2B DD A8 E0 AF 31 2B DD A8 E1 AE 31 2B DD A8 E2 AD 31 2B DD A8
  310.            E3 AC 31 2B 15 19 07
  311.           )
  312.       :FNODE :LABEL :STACKZ :CONSVAR :USED-FAR :FOR-VALUE #1=(BLOCK) 7. BLOCK 1. 2. 3. 4. 5. 6.
  313.      )
  314.    BLOCK DEFSTRUCT-DESCRIPTION #1#
  315.    ((FNODE 1. NIL T NIL) (LABEL 2. NIL T NIL) (STACKZ 3. NIL T NIL) (CONSVAR 4. NIL T NIL)
  316.     (USED-FAR 5. NIL T NIL) (FOR-VALUE 6. NIL T NIL)
  317.    )
  318.    CLOS::DEFINE-STRUCTURE-CLASS (INLINE BLOCK-P) BLOCK-P INLINE-EXPANSION
  319.    ((OBJECT) (DECLARE (IN-DEFUN BLOCK-P)) (BLOCK BLOCK-P (%STRUCTURE-TYPE-P 'BLOCK OBJECT)))
  320.    #Y(BLOCK-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) BLOCK) (FUNCTION BLOCK-FNODE (BLOCK) T)
  321.    (INLINE BLOCK-FNODE) BLOCK-FNODE
  322.    (#2=(OBJECT) (DECLARE (IN-DEFUN BLOCK-FNODE))
  323.     (BLOCK BLOCK-FNODE (THE T (%STRUCTURE-REF 'BLOCK OBJECT 1.)))
  324.    )
  325.    #Y(BLOCK-FNODE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 1.)
  326.    (FUNCTION BLOCK-LABEL (BLOCK) T) (INLINE BLOCK-LABEL) BLOCK-LABEL
  327.    (#2# (DECLARE (IN-DEFUN BLOCK-LABEL))
  328.     (BLOCK BLOCK-LABEL (THE T (%STRUCTURE-REF 'BLOCK OBJECT 2.)))
  329.    )
  330.    #Y(BLOCK-LABEL #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 2.)
  331.    (FUNCTION BLOCK-STACKZ (BLOCK) T) (INLINE BLOCK-STACKZ) BLOCK-STACKZ
  332.    (#2# (DECLARE (IN-DEFUN BLOCK-STACKZ))
  333.     (BLOCK BLOCK-STACKZ (THE T (%STRUCTURE-REF 'BLOCK OBJECT 3.)))
  334.    )
  335.    #Y(BLOCK-STACKZ #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 3.)
  336.    (FUNCTION BLOCK-CONSVAR (BLOCK) T) (INLINE BLOCK-CONSVAR) BLOCK-CONSVAR
  337.    (#2# (DECLARE (IN-DEFUN BLOCK-CONSVAR))
  338.     (BLOCK BLOCK-CONSVAR (THE T (%STRUCTURE-REF 'BLOCK OBJECT 4.)))
  339.    )
  340.    #Y(BLOCK-CONSVAR #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 4.)
  341.    (FUNCTION BLOCK-USED-FAR (BLOCK) T) (INLINE BLOCK-USED-FAR) BLOCK-USED-FAR
  342.    (#2# (DECLARE (IN-DEFUN BLOCK-USED-FAR))
  343.     (BLOCK BLOCK-USED-FAR (THE T (%STRUCTURE-REF 'BLOCK OBJECT 5.)))
  344.    )
  345.    #Y(BLOCK-USED-FAR #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 5.)
  346.    (FUNCTION BLOCK-FOR-VALUE (BLOCK) T) (INLINE BLOCK-FOR-VALUE) BLOCK-FOR-VALUE
  347.    (#2# (DECLARE (IN-DEFUN BLOCK-FOR-VALUE))
  348.     (BLOCK BLOCK-FOR-VALUE (THE T (%STRUCTURE-REF 'BLOCK OBJECT 6.)))
  349.    )
  350.    #Y(BLOCK-FOR-VALUE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) BLOCK 6.) SETF-EXPANDER -1.
  351.    #Y(SETF-BLOCK-FNODE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
  352.       'BLOCK 1.
  353.      )
  354.    SETF %SET-DOCUMENTATION
  355.    #Y(SETF-BLOCK-LABEL #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
  356.       'BLOCK 2.
  357.      )
  358.    #Y(SETF-BLOCK-STACKZ #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  359.       %STRUCTURE-STORE 'BLOCK 3.
  360.      )
  361.    #Y(SETF-BLOCK-CONSVAR #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  362.       %STRUCTURE-STORE 'BLOCK 4.
  363.      )
  364.    #Y(SETF-BLOCK-USED-FAR #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  365.       %STRUCTURE-STORE 'BLOCK 5.
  366.      )
  367.    #Y(SETF-BLOCK-FOR-VALUE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  368.       %STRUCTURE-STORE 'BLOCK 6.
  369.      )
  370.    STRUCTURE STRUCTURE-PRINT
  371.   )
  372. #Y(#:TOP-LEVEL-FORM-52 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) BLOCK DEFSTRUCT-DESCRIPTION)
  373. #Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BENV-SEARCH
  374.    REMOVE-OLD-DEFINITIONS
  375.    #Y(BENV-SEARCH
  376.       #48Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 99 1F 0A 99 56 74 9B 21 0C 7F 01 1A 73 00 19 03 99
  377.            56 57 19 03 99 56 75 D6 A8 31 2E 16 01 1B 70 99 56 19 03
  378.           )
  379.       *BENV* BLOCK
  380.   )  )
  381. #Y(#:TOP-LEVEL-FORM-54 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *GENV*) *GENV*)
  382. #Y(#:TOP-LEVEL-FORM-55
  383.    #241Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
  384.          DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
  385.          E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 EC 30 5B ED 30 5B EE 2E 01 EE DF EF
  386.          31 7A EE F0 31 74 F1 30 5B F2 30 5B F3 2E 01 F3 DF F4 31 7A F3 F5 31 74 61 21 30 5B 61 22
  387.          30 5B 61 23 2E 01 61 23 DF 61 24 31 7A 61 23 61 25 31 74 E4 61 26 61 27 03 28 76 31 7A E4
  388.          61 29 5F 2C 03 2A E9 61 26 61 27 03 2B 76 31 7A E9 61 29 5F 2C 03 2A EE 61 26 61 27 03 2C
  389.          76 31 7A EE 61 29 5F 2C 03 2A F3 61 26 61 27 03 2D 76 31 7A F3 61 29 5F 2C 03 2A 61 23 61
  390.          26 61 27 03 2E 76 31 7A 61 23 61 29 5F 2C 03 2A D8 61 2F 5F 2C 03 2A D8 61 30 31 7B C3 19
  391.          01
  392.         )
  393.    MAKE-TAGBODY REMOVE-OLD-DEFINITIONS
  394.    #Y(MAKE-TAGBODY
  395.       #57Y(00 00 00 00 80 1B 05 00 00 00 3C 05 3C 04 3C 03 3C 02 3C 01 DA DB 6E 2C DC A8 DD B0 31
  396.            2B DC A8 DE AF 31 2B DC A8 DF AE 31 2B DC A8 E0 AD 31 2B DC A8 E1 AC 31 2B 15 19 06
  397.           )
  398.       :FNODE :LABELLIST :STACKZ :CONSVAR :USED-FAR #1=(TAGBODY) 6. TAGBODY 1. 2. 3. 4. 5.
  399.      )
  400.    TAGBODY DEFSTRUCT-DESCRIPTION #1#
  401.    ((FNODE 1. NIL T NIL) (LABELLIST 2. NIL T NIL) (STACKZ 3. NIL T NIL) (CONSVAR 4. NIL T NIL)
  402.     (USED-FAR 5. NIL T NIL)
  403.    )
  404.    CLOS::DEFINE-STRUCTURE-CLASS (INLINE TAGBODY-P) TAGBODY-P INLINE-EXPANSION
  405.    ((OBJECT) (DECLARE (IN-DEFUN TAGBODY-P)) (BLOCK TAGBODY-P (%STRUCTURE-TYPE-P 'TAGBODY OBJECT)))
  406.    #Y(TAGBODY-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) TAGBODY)
  407.    (FUNCTION TAGBODY-FNODE (TAGBODY) T) (INLINE TAGBODY-FNODE) TAGBODY-FNODE
  408.    (#2=(OBJECT) (DECLARE (IN-DEFUN TAGBODY-FNODE))
  409.     (BLOCK TAGBODY-FNODE (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 1.)))
  410.    )
  411.    #Y(TAGBODY-FNODE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) TAGBODY 1.)
  412.    (FUNCTION TAGBODY-LABELLIST (TAGBODY) T) (INLINE TAGBODY-LABELLIST) TAGBODY-LABELLIST
  413.    (#2# (DECLARE (IN-DEFUN TAGBODY-LABELLIST))
  414.     (BLOCK TAGBODY-LABELLIST (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 2.)))
  415.    )
  416.    #Y(TAGBODY-LABELLIST #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) TAGBODY 2.)
  417.    (FUNCTION TAGBODY-STACKZ (TAGBODY) T) (INLINE TAGBODY-STACKZ) TAGBODY-STACKZ
  418.    (#2# (DECLARE (IN-DEFUN TAGBODY-STACKZ))
  419.     (BLOCK TAGBODY-STACKZ (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 3.)))
  420.    )
  421.    #Y(TAGBODY-STACKZ #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) TAGBODY 3.)
  422.    (FUNCTION TAGBODY-CONSVAR (TAGBODY) T) (INLINE TAGBODY-CONSVAR) TAGBODY-CONSVAR
  423.    (#2# (DECLARE (IN-DEFUN TAGBODY-CONSVAR))
  424.     (BLOCK TAGBODY-CONSVAR (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 4.)))
  425.    )
  426.    #Y(TAGBODY-CONSVAR #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) TAGBODY 4.)
  427.    (FUNCTION TAGBODY-USED-FAR (TAGBODY) T) (INLINE TAGBODY-USED-FAR) TAGBODY-USED-FAR
  428.    (#2# (DECLARE (IN-DEFUN TAGBODY-USED-FAR))
  429.     (BLOCK TAGBODY-USED-FAR (THE T (%STRUCTURE-REF 'TAGBODY OBJECT 5.)))
  430.    )
  431.    #Y(TAGBODY-USED-FAR #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) TAGBODY 5.) SETF-EXPANDER -1.
  432.    #Y(SETF-TAGBODY-FNODE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  433.       %STRUCTURE-STORE 'TAGBODY 1.
  434.      )
  435.    SETF %SET-DOCUMENTATION
  436.    #Y(SETF-TAGBODY-LABELLIST #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  437.       %STRUCTURE-STORE 'TAGBODY 2.
  438.      )
  439.    #Y(SETF-TAGBODY-STACKZ #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  440.       %STRUCTURE-STORE 'TAGBODY 3.
  441.      )
  442.    #Y(SETF-TAGBODY-CONSVAR #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  443.       %STRUCTURE-STORE 'TAGBODY 4.
  444.      )
  445.    #Y(SETF-TAGBODY-USED-FAR #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  446.       %STRUCTURE-STORE 'TAGBODY 5.
  447.      )
  448.    STRUCTURE STRUCTURE-PRINT
  449.   )
  450. #Y(#:TOP-LEVEL-FORM-56 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) TAGBODY DEFSTRUCT-DESCRIPTION)
  451. #Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GENV-SEARCH
  452.    REMOVE-OLD-DEFINITIONS
  453.    #Y(GENV-SEARCH
  454.       #73Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 99 1F 09 99 56 74 A7 6E 41 D6 1A 25 00 19 03 9C 56
  455.            57 1A 0D 9C 56 75 D7 A8 31 2E 16 01 1B 70 9C 56 14 A8 3F 02 19 06 A9 99 5A 14 AD 88 FE
  456.            65 81 00 A7 A9 8D 01 2B 70 16 03 7F 01 1A 43
  457.           )
  458.       *GENV* 0. TAGBODY
  459.   )  )
  460. #Y(#:TOP-LEVEL-FORM-58
  461.    #28Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 6D 5C 31 75 C0 19 01)
  462.    SPECDECL "~S redefines the constant ~S. Its old value was ~S."
  463.    (DEFCONSTANT SPECDECL
  464.     (EVAL
  465.      '#1=(LET
  466.           ((*EVALHOOK* #'(LAMBDA (FORM ENV) (DECLARE (IGNORE FORM)) (SVREF (SVREF ENV 0.) 1.)))) 0.
  467.    ))    )
  468.    WARN #1#
  469.   )
  470. #Y(#:TOP-LEVEL-FORM-59 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PROCLAIMED-SPECIAL-P
  471.    REMOVE-OLD-DEFINITIONS
  472.    #Y(PROCLAIMED-SPECIAL-P
  473.       #25Y(01 00 00 00 00 02 A8 31 81 1D 0C A8 67 00 D6 37 02 30 B3 54 54 19 02 19 02)
  474.       *KNOWN-SPECIAL-VARS* #.#'EQ
  475.   )  )
  476. #Y(#:TOP-LEVEL-FORM-60 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *VENV*) *VENV*)
  477. #Y(#:TOP-LEVEL-FORM-61 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *VENVC*) *VENVC*)
  478. #Y(#:TOP-LEVEL-FORM-62
  479.    #433Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
  480.          DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
  481.          E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 EC 30 5B ED 30 5B EE 2E 01 EE DF EF
  482.          31 7A EE F0 31 74 F1 30 5B F2 30 5B F3 2E 01 F3 DF F4 31 7A F3 F5 31 74 61 21 30 5B 61 22
  483.          30 5B 61 23 2E 01 61 23 DF 61 24 31 7A 61 23 61 25 31 74 61 26 30 5B 61 27 30 5B 61 28 2E
  484.          01 61 28 DF 61 29 31 7A 61 28 61 2A 31 74 61 2B 30 5B 61 2C 30 5B 61 2D 2E 01 61 2D DF 61
  485.          2E 31 7A 61 2D 61 2F 31 74 61 30 30 5B 61 31 30 5B 61 32 2E 01 61 32 DF 61 33 31 7A 61 32
  486.          61 34 31 74 61 35 30 5B 61 36 30 5B 61 37 2E 01 61 37 DF 61 38 31 7A 61 37 61 39 31 74 61
  487.          3A 30 5B 61 3B 30 5B 61 3C 2E 01 61 3C DF 61 3D 31 7A 61 3C 61 3E 31 74 61 3F 30 5B 61 40
  488.          30 5B 61 41 2E 01 61 41 DF 61 42 31 7A 61 41 61 43 31 74 EE 61 44 61 45 03 46 76 31 7A EE
  489.          61 47 5F 2C 03 48 F3 61 44 61 45 03 49 76 31 7A F3 61 47 5F 2C 03 48 61 23 61 44 61 45 03
  490.          4A 76 31 7A 61 23 61 47 5F 2C 03 48 61 28 61 44 61 45 03 4B 76 31 7A 61 28 61 47 5F 2C 03
  491.          48 61 2D 61 44 61 45 03 4C 76 31 7A 61 2D 61 47 5F 2C 03 48 61 32 61 44 61 45 03 4D 76 31
  492.          7A 61 32 61 47 5F 2C 03 48 61 37 61 44 61 45 03 4E 76 31 7A 61 37 61 47 5F 2C 03 48 D8 61
  493.          4F 5F 2C 03 48 D8 61 50 31 7B C3 19 01
  494.         )
  495.    MAKE-VAR REMOVE-OLD-DEFINITIONS
  496.    #Y(MAKE-VAR
  497.       #105Y(00 00 00 00 80 1B 0B 00 00 00 3C 0B 3C 0A 3C 09 3C 08 3C 07 3C 06 3C 05 3C 04 3C 03 3C
  498.             02 3C 01 E0 E1 6E 2C E2 A8 E3 B6 31 2B E2 A8 E4 B5 31 2B E2 A8 E5 B4 31 2B E2 A8 E6 B3
  499.             31 2B E2 A8 E7 B2 31 2B E2 A8 E8 B1 31 2B E2 A8 E9 B0 31 2B E2 A8 EA AF 31 2B E2 A8 EB
  500.             AE 31 2B E2 A8 EC AD 31 2B E2 A8 ED AC 31 2B 15 19 0C
  501.            )
  502.       :NAME :SPECIALP :CONSTANTP :CONSTANT :USEDP :REALLY-USEDP :MODIFIED-LIST :REPLACEABLE-LIST
  503.       :CLOSUREP :STACKZ :VENVC #1=(VAR) 12. VAR 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11.
  504.      )
  505.    VAR DEFSTRUCT-DESCRIPTION #1#
  506.    ((NAME 1. NIL T T) (SPECIALP 2. NIL T T) (CONSTANTP 3. NIL T NIL) (CONSTANT 4. NIL T NIL)
  507.     (USEDP 5. NIL T NIL) (REALLY-USEDP 6. NIL T NIL) (MODIFIED-LIST 7. 'NIL T NIL)
  508.     (REPLACEABLE-LIST 8. 'NIL T NIL) (CLOSUREP 9. NIL T NIL) (STACKZ 10. NIL T T)
  509.     (VENVC 11. NIL T T)
  510.    )
  511.    CLOS::DEFINE-STRUCTURE-CLASS (INLINE VAR-P) VAR-P INLINE-EXPANSION
  512.    ((OBJECT) (DECLARE (IN-DEFUN VAR-P)) (BLOCK VAR-P (%STRUCTURE-TYPE-P 'VAR OBJECT)))
  513.    #Y(VAR-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) VAR) (FUNCTION VAR-NAME (VAR) T)
  514.    (INLINE VAR-NAME) VAR-NAME
  515.    (#2=(OBJECT) (DECLARE (IN-DEFUN VAR-NAME))
  516.     (BLOCK VAR-NAME (THE T (%STRUCTURE-REF 'VAR OBJECT 1.)))
  517.    )
  518.    #Y(VAR-NAME #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 1.) (FUNCTION VAR-SPECIALP (VAR) T)
  519.    (INLINE VAR-SPECIALP) VAR-SPECIALP
  520.    (#2# (DECLARE (IN-DEFUN VAR-SPECIALP))
  521.     (BLOCK VAR-SPECIALP (THE T (%STRUCTURE-REF 'VAR OBJECT 2.)))
  522.    )
  523.    #Y(VAR-SPECIALP #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 2.)
  524.    (FUNCTION VAR-CONSTANTP (VAR) T) (INLINE VAR-CONSTANTP) VAR-CONSTANTP
  525.    (#2# (DECLARE (IN-DEFUN VAR-CONSTANTP))
  526.     (BLOCK VAR-CONSTANTP (THE T (%STRUCTURE-REF 'VAR OBJECT 3.)))
  527.    )
  528.    #Y(VAR-CONSTANTP #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 3.)
  529.    (FUNCTION VAR-CONSTANT (VAR) T) (INLINE VAR-CONSTANT) VAR-CONSTANT
  530.    (#2# (DECLARE (IN-DEFUN VAR-CONSTANT))
  531.     (BLOCK VAR-CONSTANT (THE T (%STRUCTURE-REF 'VAR OBJECT 4.)))
  532.    )
  533.    #Y(VAR-CONSTANT #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 4.)
  534.    (FUNCTION VAR-USEDP (VAR) T) (INLINE VAR-USEDP) VAR-USEDP
  535.    (#2# (DECLARE (IN-DEFUN VAR-USEDP)) (BLOCK VAR-USEDP (THE T (%STRUCTURE-REF 'VAR OBJECT 5.))))
  536.    #Y(VAR-USEDP #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 5.)
  537.    (FUNCTION VAR-REALLY-USEDP (VAR) T) (INLINE VAR-REALLY-USEDP) VAR-REALLY-USEDP
  538.    (#2# (DECLARE (IN-DEFUN VAR-REALLY-USEDP))
  539.     (BLOCK VAR-REALLY-USEDP (THE T (%STRUCTURE-REF 'VAR OBJECT 6.)))
  540.    )
  541.    #Y(VAR-REALLY-USEDP #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 6.)
  542.    (FUNCTION VAR-MODIFIED-LIST (VAR) T) (INLINE VAR-MODIFIED-LIST) VAR-MODIFIED-LIST
  543.    (#2# (DECLARE (IN-DEFUN VAR-MODIFIED-LIST))
  544.     (BLOCK VAR-MODIFIED-LIST (THE T (%STRUCTURE-REF 'VAR OBJECT 7.)))
  545.    )
  546.    #Y(VAR-MODIFIED-LIST #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 7.)
  547.    (FUNCTION VAR-REPLACEABLE-LIST (VAR) T) (INLINE VAR-REPLACEABLE-LIST) VAR-REPLACEABLE-LIST
  548.    (#2# (DECLARE (IN-DEFUN VAR-REPLACEABLE-LIST))
  549.     (BLOCK VAR-REPLACEABLE-LIST (THE T (%STRUCTURE-REF 'VAR OBJECT 8.)))
  550.    )
  551.    #Y(VAR-REPLACEABLE-LIST #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 8.)
  552.    (FUNCTION VAR-CLOSUREP (VAR) T) (INLINE VAR-CLOSUREP) VAR-CLOSUREP
  553.    (#2# (DECLARE (IN-DEFUN VAR-CLOSUREP))
  554.     (BLOCK VAR-CLOSUREP (THE T (%STRUCTURE-REF 'VAR OBJECT 9.)))
  555.    )
  556.    #Y(VAR-CLOSUREP #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 9.)
  557.    (FUNCTION VAR-STACKZ (VAR) T) (INLINE VAR-STACKZ) VAR-STACKZ
  558.    (#2# (DECLARE (IN-DEFUN VAR-STACKZ)) (BLOCK VAR-STACKZ (THE T (%STRUCTURE-REF 'VAR OBJECT 10.)))
  559.    )
  560.    #Y(VAR-STACKZ #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 10.) (FUNCTION VAR-VENVC (VAR) T)
  561.    (INLINE VAR-VENVC) VAR-VENVC
  562.    (#2# (DECLARE (IN-DEFUN VAR-VENVC)) (BLOCK VAR-VENVC (THE T (%STRUCTURE-REF 'VAR OBJECT 11.))))
  563.    #Y(VAR-VENVC #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) VAR 11.) SETF-EXPANDER -1.
  564.    #Y(SETF-VAR-CONSTANTP #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  565.       %STRUCTURE-STORE 'VAR 3.
  566.      )
  567.    SETF %SET-DOCUMENTATION
  568.    #Y(SETF-VAR-CONSTANT #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  569.       %STRUCTURE-STORE 'VAR 4.
  570.      )
  571.    #Y(SETF-VAR-USEDP #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
  572.       'VAR 5.
  573.      )
  574.    #Y(SETF-VAR-REALLY-USEDP #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  575.       %STRUCTURE-STORE 'VAR 6.
  576.      )
  577.    #Y(SETF-VAR-MODIFIED-LIST #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  578.       %STRUCTURE-STORE 'VAR 7.
  579.      )
  580.    #Y(SETF-VAR-REPLACEABLE-LIST #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  581.       %STRUCTURE-STORE 'VAR 8.
  582.      )
  583.    #Y(SETF-VAR-CLOSUREP #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  584.       %STRUCTURE-STORE 'VAR 9.
  585.      )
  586.    STRUCTURE STRUCTURE-PRINT
  587.   )
  588. #Y(#:TOP-LEVEL-FORM-63 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) VAR DEFSTRUCT-DESCRIPTION)
  589. #Y(#:TOP-LEVEL-FORM-64 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) VENV-SEARCH
  590.    REMOVE-OLD-DEFINITIONS
  591.    #Y(VENV-SEARCH
  592.       #118Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 A9 88 5F 31 A9 84 01 2D 8F 01 36 A8 8B 20 80 51 A8
  593.             6E 41 6E 8A D8 A7 A9 8C 01 2B 1C AB AB 9A 5A 22 36 AA A8 31 89 5A 14 D9 A8 8A 2E 17 A7
  594.             0E 06 22 1E C2 19 06 C2 19 03 AA 99 5A F9 16 02 8E 01 4A 00 19 03 D9 A8 DA 8A 2A 68 60
  595.             A8 3F 02 19 06 DC AC 92 03 3F 03 19 06 DA A8 7E 02 33 00 1A FF B5 DD 2E 09 8F 01 5A 1A
  596.             FF A1
  597.            )
  598.       *VENV* PROCLAIMED-SPECIAL-P SPECIAL 0. VAR 2. SPECDECL LOCAL VENV-SEARCH COMPILER-ERROR
  599.   )  )
  600. #Y(#:TOP-LEVEL-FORM-65 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) VENV-SEARCH-MACRO
  601.    REMOVE-OLD-DEFINITIONS
  602.    #Y(VENV-SEARCH-MACRO
  603.       #52Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 A9 A9 2F 01 41 03 A9 D7 37 03 88 B3 0A A9 D8 37 03
  604.            88 B3 0D 00 19 06 AC 30 50 1E 0A AC 30 4F 19 06 A8 99 5A 19 06 19 06
  605.           )
  606.       *VENV* VENV-SEARCH (NIL) (LOCAL)
  607.   )  )
  608. #Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PUSH-*VENV*
  609.    REMOVE-OLD-DEFINITIONS
  610.    #Y(PUSH-*VENV*
  611.       #49Y(00 00 00 00 01 16 8E 01 03 00 19 02 67 00 77 01 A9 5F 1A 0F 83 01 00 D6 A8 D7 6E 2A A8
  612.            9C 5D 02 F8 7F 01 A8 89 92 6D 16 02 D8 99 36 00 0F 00 19 03
  613.           )
  614.       *VENV* VAR 1. #.#'VECTOR
  615.   )  )
  616. #Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ZUGRIFF-IN-CLOSURE
  617.    REMOVE-OLD-DEFINITIONS
  618.    #Y(ZUGRIFF-IN-CLOSURE
  619.       #83Y(03 00 00 00 00 04 01 02 1A 1A A7 8A 08 12 C2 F8 1A 0E 79 00 1A 25 90 04 8F 02 6F 98 1F
  620.            02 81 02 16 01 7F 04 AB D5 AE D6 31 2A 22 6A 8E 01 63 AA 9D 56 75 2F 03 41 02 66 01 66
  621.            01 9C 56 74 D7 1A 04 7F 01 81 00 90 01 A0 22 77 66 00 A9 A9 A9 3F 03 19 07
  622.           )
  623.       VAR 11. 0. ZUGRIFF-IN-STACK
  624.   )  )
  625. #Y(#:TOP-LEVEL-FORM-68
  626.    #119Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
  627.          DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
  628.          E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 E4 EC ED 03 19 76 31 7A E4 EF 5F 2C
  629.          03 1B E9 EC ED 03 1C 76 31 7A E9 EF 5F 2C 03 1B D8 F2 5F 2C 03 1B D8 F3 31 7B C3 19 01
  630.         )
  631.    MAKE-CONST REMOVE-OLD-DEFINITIONS
  632.    #Y(MAKE-CONST
  633.       #33Y(00 00 00 00 80 1B 02 00 00 00 3C 02 3C 01 D7 D8 6E 2C D9 A8 DA AD 31 2B D9 A8 DB AC 31
  634.            2B 15 19 03
  635.           )
  636.       :VALUE :FORM #1=(CONST) 3. CONST 1. 2.
  637.      )
  638.    CONST DEFSTRUCT-DESCRIPTION #1# ((VALUE 1. NIL T NIL) (FORM 2. NIL T NIL))
  639.    CLOS::DEFINE-STRUCTURE-CLASS (INLINE CONST-P) CONST-P INLINE-EXPANSION
  640.    ((OBJECT) (DECLARE (IN-DEFUN CONST-P)) (BLOCK CONST-P (%STRUCTURE-TYPE-P 'CONST OBJECT)))
  641.    #Y(CONST-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) CONST) (FUNCTION CONST-VALUE (CONST) T)
  642.    (INLINE CONST-VALUE) CONST-VALUE
  643.    (#2=(OBJECT) (DECLARE (IN-DEFUN CONST-VALUE))
  644.     (BLOCK CONST-VALUE (THE T (%STRUCTURE-REF 'CONST OBJECT 1.)))
  645.    )
  646.    #Y(CONST-VALUE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) CONST 1.)
  647.    (FUNCTION CONST-FORM (CONST) T) (INLINE CONST-FORM) CONST-FORM
  648.    (#2# (DECLARE (IN-DEFUN CONST-FORM))
  649.     (BLOCK CONST-FORM (THE T (%STRUCTURE-REF 'CONST OBJECT 2.)))
  650.    )
  651.    #Y(CONST-FORM #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) CONST 2.) SETF-EXPANDER -1.
  652.    #Y(SETF-CONST-VALUE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
  653.       'CONST 1.
  654.      )
  655.    SETF %SET-DOCUMENTATION
  656.    #Y(SETF-CONST-FORM #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
  657.       'CONST 2.
  658.      )
  659.    STRUCTURE STRUCTURE-PRINT
  660.   )
  661. #Y(#:TOP-LEVEL-FORM-69 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) CONST DEFSTRUCT-DESCRIPTION)
  662. #Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D5 30 5B D6 D7 30 53 C1 19 01)
  663.    (SPECIAL *DECLARATION-TYPES*) *DECLARATION-TYPES*
  664.    (SPECIAL TYPE FTYPE FUNCTION INLINE NOTINLINE IGNORE OPTIMIZE DECLARATION ARRAY ATOM BIGNUM BIT
  665.     BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION
  666.     HASH-TABLE INTEGER KEYWORD LIST LONG-FLOAT NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE RATIO
  667.     RATIONAL READTABLE SEQUENCE SHORT-FLOAT SIMPLE-ARRAY SIMPLE-BIT-VECTOR SIMPLE-STRING
  668.     SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR STREAM STRING STRING-CHAR SYMBOL T VECTOR COMPILE
  669.     SOURCE IN-DEFUN IGNORABLE
  670.   ))
  671. #Y(#:TOP-LEVEL-FORM-71 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *DENV*) *DENV*)
  672. #Y(#:TOP-LEVEL-FORM-72 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PROCESS-DECLARATIONS
  673.    REMOVE-OLD-DEFINITIONS
  674.    #Y(PROCESS-DECLARATIONS
  675.       #242Y(01 00 00 00 00 02 01 03 AB 7D 43 04 14 5F 1A 80 D3 D5 A8 2F 01 1A 80 CA 91 01 5F 1A 12
  676.             A7 80 07 1A 0B 83 01 00 14 8A 03 74 DE A8 2F 01 7F 01 A8 89 92 6F 16 03 1A 80 AA 91 01
  677.             5F 1A 12 A7 80 06 1A 0B 83 01 00 14 8A 03 74 E0 A8 2F 01 7F 01 A8 89 92 6F 16 03 1A 80
  678.             8A 91 01 5F 1A 12 A7 80 05 1A 0B 83 01 00 14 8A 03 74 E2 A8 2F 01 7F 01 A8 89 92 6F 16
  679.             03 1A 80 6A 16 01 A7 23 08 FF 99 A7 23 0A FF B4 A7 23 0C 50 A8 0E 04 58 0F 04 16 01 1A
  680.             80 4F 83 01 00 1F FF 78 A7 30 9C 57 1B FF 71 90 00 A7 8B 03 34 A7 67 02 D8 37 02 88 B3
  681.             4B 67 04 8F 00 16 98 56 74 24 05 0B A8 99 56 75 D8 37 02 88 B3 FF B3 7F 00 8E 00 6A 16
  682.             01 0E 06 1C 0A A7 67 07 D8 37 02 88 B3 FF A0 E3 A8 AA 2C 03 01 16 01 7F 01 A8 89 92 FF
  683.             AA 16 02 A9 A9 A9 3F 03 19 05
  684.            )
  685.       "Bad declaration syntax: ~S~%Will be ignored." C-WARN *DECLARATION-TYPES* #.#'EQ *DENV*
  686.       DECLARATION *COMPILING-FROM-FILE* *USER-DECLARATION-TYPES* SPECIAL
  687.       "Non-symbol ~S may not be declared SPECIAL." IGNORE
  688.       "Non-symbol ~S may not be declared IGNORE." IGNORABLE
  689.       "Non-symbol ~S may not be declared IGNORABLE."
  690.       "Unknown declaration ~S.~%The whole declaration will be ignored."
  691.   )  )
  692. #Y(#:TOP-LEVEL-FORM-73 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DECLARED-NOTINLINE
  693.    REMOVE-OLD-DEFINITIONS
  694.    #Y(DECLARED-NOTINLINE
  695.       #110Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 D6 AA 77 02 67 00 D7 37 02 89 B3 12 1A 20 90 01 90
  696.             00 23 09 34 90 00 23 08 3B 16 01 7F 01 99 20 6D 0E 03 1C 18 A9 67 04 D7 37 02 89 B3 06
  697.             02 19 03 00 19 03 A9 67 05 D7 37 02 88 B3 74 A9 6B 06 DC 37 01 6E 76 C8 55 19 03 AA 91
  698.             01 D7 37 02 89 B3 43 00 19 04 AA 91 01 D7 37 02 89 B3 FF BB 02 19 04
  699.            )
  700.       *DENV* INLINING #.#'EQUAL *COMPILING-FROM-FILE* *NOTINLINE-FUNCTIONS* *INLINE-FUNCTIONS*
  701.       GET-FUNNAME-SYMBOL INLINABLE NOTINLINE INLINE
  702.   )  )
  703. #Y(#:TOP-LEVEL-FORM-74
  704.    #912Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 D5 DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
  705.          DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
  706.          E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 EC 30 5B ED 30 5B EE 2E 01 EE DF EF
  707.          31 7A EE F0 31 74 F1 30 5B F2 30 5B F3 2E 01 F3 DF F4 31 7A F3 F5 31 74 61 21 30 5B 61 22
  708.          30 5B 61 23 2E 01 61 23 DF 61 24 31 7A 61 23 61 25 31 74 61 26 30 5B 61 27 30 5B 61 28 2E
  709.          01 61 28 DF 61 29 31 7A 61 28 61 2A 31 74 61 2B 30 5B 61 2C 30 5B 61 2D 2E 01 61 2D DF 61
  710.          2E 31 7A 61 2D 61 2F 31 74 61 30 30 5B 61 31 30 5B 61 32 2E 01 61 32 DF 61 33 31 7A 61 32
  711.          61 34 31 74 61 35 30 5B 61 36 30 5B 61 37 2E 01 61 37 DF 61 38 31 7A 61 37 61 39 31 74 61
  712.          3A 30 5B 61 3B 30 5B 61 3C 2E 01 61 3C DF 61 3D 31 7A 61 3C 61 3E 31 74 61 3F 30 5B 61 40
  713.          30 5B 61 41 2E 01 61 41 DF 61 42 31 7A 61 41 61 43 31 74 61 44 30 5B 61 45 30 5B 61 46 2E
  714.          01 61 46 DF 61 47 31 7A 61 46 61 48 31 74 61 49 30 5B 61 4A 30 5B 61 4B 2E 01 61 4B DF 61
  715.          4C 31 7A 61 4B 61 4D 31 74 61 4E 30 5B 61 4F 30 5B 61 50 2E 01 61 50 DF 61 51 31 7A 61 50
  716.          61 52 31 74 61 53 30 5B 61 54 30 5B 61 55 2E 01 61 55 DF 61 56 31 7A 61 55 61 57 31 74 61
  717.          58 30 5B 61 59 30 5B 61 5A 2E 01 61 5A DF 61 5B 31 7A 61 5A 61 5C 31 74 61 5D 30 5B 61 5E
  718.          30 5B 61 5F 2E 01 61 5F DF 61 60 31 7A 61 5F 61 61 31 74 61 62 30 5B 61 63 30 5B 61 64 2E
  719.          01 61 64 DF 61 65 31 7A 61 64 61 66 31 74 61 67 30 5B 61 68 30 5B 61 69 2E 01 61 69 DF 61
  720.          6A 31 7A 61 69 61 6B 31 74 61 6C 30 5B 61 6D 30 5B 61 6E 2E 01 61 6E DF 61 6F 31 7A 61 6E
  721.          61 70 31 74 E4 61 71 61 72 03 73 76 31 7A E4 61 74 5F 2C 03 75 E9 61 71 61 72 03 76 76 31
  722.          7A E9 61 74 5F 2C 03 75 EE 61 71 61 72 03 77 76 31 7A EE 61 74 5F 2C 03 75 F3 61 71 61 72
  723.          03 78 76 31 7A F3 61 74 5F 2C 03 75 61 23 61 71 61 72 03 79 76 31 7A 61 23 61 74 5F 2C 03
  724.          75 61 28 61 71 61 72 03 7A 76 31 7A 61 28 61 74 5F 2C 03 75 61 2D 61 71 61 72 03 7B 76 31
  725.          7A 61 2D 61 74 5F 2C 03 75 61 32 61 71 61 72 03 7C 76 31 7A 61 32 61 74 5F 2C 03 75 61 37
  726.          61 71 61 72 03 7D 76 31 7A 61 37 61 74 5F 2C 03 75 61 3C 61 71 61 72 03 7E 76 31 7A 61 3C
  727.          61 74 5F 2C 03 75 61 41 61 71 61 72 03 7F 76 31 7A 61 41 61 74 5F 2C 03 75 61 46 61 71 61
  728.          72 03 80 80 76 31 7A 61 46 61 74 5F 2C 03 75 61 4B 61 71 61 72 03 80 81 76 31 7A 61 4B 61
  729.          74 5F 2C 03 75 61 50 61 71 61 72 03 80 82 76 31 7A 61 50 61 74 5F 2C 03 75 61 55 61 71 61
  730.          72 03 80 83 76 31 7A 61 55 61 74 5F 2C 03 75 61 5A 61 71 61 72 03 80 84 76 31 7A 61 5A 61
  731.          74 5F 2C 03 75 61 5F 61 71 61 72 03 80 85 76 31 7A 61 5F 61 74 5F 2C 03 75 61 64 61 71 61
  732.          72 03 80 86 76 31 7A 61 64 61 74 5F 2C 03 75 61 69 61 71 61 72 03 80 87 76 31 7A 61 69 61
  733.          74 5F 2C 03 75 61 6E 61 71 61 72 03 80 88 76 31 7A 61 6E 61 74 5F 2C 03 75 D8 61 80 89 5F
  734.          2C 03 75 D8 61 80 8A 31 7B C3 19 01
  735.         )
  736.    MAKE-FNODE REMOVE-OLD-DEFINITIONS
  737.    #Y(MAKE-FNODE
  738.       #196Y(00 00 00 00 80 1B 14 00 00 00 3C 14 3C 13 3C 12 3C 11 3C 10 3C 0F 3C 0E 3C 0D 3C 0C 3A
  739.             0B 03 D4 09 0B 3A 0A 03 D4 09 0A 3C 09 3C 08 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01
  740.             EA EB 6E 2C EC A8 ED BF 31 2B EC A8 EE BE 31 2B EC A8 EF BD 31 2B EC A8 F0 BC 31 2B EC
  741.             A8 F1 BB 31 2B EC A8 F2 BA 31 2B EC A8 F3 B9 31 2B EC A8 F4 B8 31 2B EC A8 F5 B7 31 2B
  742.             EC A8 61 21 B6 31 2B EC A8 61 22 B5 31 2B EC A8 61 23 B4 31 2B EC A8 61 24 B3 31 2B EC
  743.             A8 61 25 B2 31 2B EC A8 61 26 B1 31 2B EC A8 61 27 B0 31 2B EC A8 61 28 AF 31 2B EC A8
  744.             61 29 AE 31 2B EC A8 61 2A AD 31 2B EC A8 61 2B AC 31 2B 15 19 15
  745.            )
  746.       :NAME :CODE :VENVCONST :VENVC :BLOCKS-OFFSET :BLOCKS :TAGBODYS-OFFSET :TAGBODYS
  747.       :KEYWORD-OFFSET :REQ-ANZ :OPT-ANZ :REST-FLAG :KEYWORD-FLAG :KEYWORDS :ALLOW-OTHER-KEYS-FLAG
  748.       :CONSTS-OFFSET :CONSTS :CONSTS-FORMS :ENCLOSING :GF-P 0. #1=(FNODE) 21. FNODE 1. 2. 3. 4. 5.
  749.       6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20.
  750.      )
  751.    FNODE DEFSTRUCT-DESCRIPTION #1#
  752.    ((NAME 1. NIL T NIL) (CODE 2. NIL T NIL) (VENVCONST 3. NIL T NIL) (VENVC 4. NIL T NIL)
  753.     (BLOCKS-OFFSET 5. NIL T NIL) (BLOCKS 6. NIL T NIL) (TAGBODYS-OFFSET 7. NIL T NIL)
  754.     (TAGBODYS 8. NIL T NIL) (KEYWORD-OFFSET 9. NIL T NIL) (REQ-ANZ 10. 0. T NIL)
  755.     (OPT-ANZ 11. 0. T NIL) (REST-FLAG 12. NIL T NIL) (KEYWORD-FLAG 13. NIL T NIL)
  756.     (KEYWORDS 14. NIL T NIL) (ALLOW-OTHER-KEYS-FLAG 15. NIL T NIL) (CONSTS-OFFSET 16. NIL T NIL)
  757.     (CONSTS 17. NIL T NIL) (CONSTS-FORMS 18. NIL T NIL) (ENCLOSING 19. NIL T NIL)
  758.     (GF-P 20. NIL T NIL)
  759.    )
  760.    CLOS::DEFINE-STRUCTURE-CLASS (INLINE FNODE-P) FNODE-P INLINE-EXPANSION
  761.    ((OBJECT) (DECLARE (IN-DEFUN FNODE-P)) (BLOCK FNODE-P (%STRUCTURE-TYPE-P 'FNODE OBJECT)))
  762.    #Y(FNODE-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) FNODE) (FUNCTION FNODE-NAME (FNODE) T)
  763.    (INLINE FNODE-NAME) FNODE-NAME
  764.    (#2=(OBJECT) (DECLARE (IN-DEFUN FNODE-NAME))
  765.     (BLOCK FNODE-NAME (THE T (%STRUCTURE-REF 'FNODE OBJECT 1.)))
  766.    )
  767.    #Y(FNODE-NAME #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 1.)
  768.    (FUNCTION FNODE-CODE (FNODE) T) (INLINE FNODE-CODE) FNODE-CODE
  769.    (#2# (DECLARE (IN-DEFUN FNODE-CODE))
  770.     (BLOCK FNODE-CODE (THE T (%STRUCTURE-REF 'FNODE OBJECT 2.)))
  771.    )
  772.    #Y(FNODE-CODE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 2.)
  773.    (FUNCTION FNODE-VENVCONST (FNODE) T) (INLINE FNODE-VENVCONST) FNODE-VENVCONST
  774.    (#2# (DECLARE (IN-DEFUN FNODE-VENVCONST))
  775.     (BLOCK FNODE-VENVCONST (THE T (%STRUCTURE-REF 'FNODE OBJECT 3.)))
  776.    )
  777.    #Y(FNODE-VENVCONST #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 3.)
  778.    (FUNCTION FNODE-VENVC (FNODE) T) (INLINE FNODE-VENVC) FNODE-VENVC
  779.    (#2# (DECLARE (IN-DEFUN FNODE-VENVC))
  780.     (BLOCK FNODE-VENVC (THE T (%STRUCTURE-REF 'FNODE OBJECT 4.)))
  781.    )
  782.    #Y(FNODE-VENVC #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 4.)
  783.    (FUNCTION FNODE-BLOCKS-OFFSET (FNODE) T) (INLINE FNODE-BLOCKS-OFFSET) FNODE-BLOCKS-OFFSET
  784.    (#2# (DECLARE (IN-DEFUN FNODE-BLOCKS-OFFSET))
  785.     (BLOCK FNODE-BLOCKS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 5.)))
  786.    )
  787.    #Y(FNODE-BLOCKS-OFFSET #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 5.)
  788.    (FUNCTION FNODE-BLOCKS (FNODE) T) (INLINE FNODE-BLOCKS) FNODE-BLOCKS
  789.    (#2# (DECLARE (IN-DEFUN FNODE-BLOCKS))
  790.     (BLOCK FNODE-BLOCKS (THE T (%STRUCTURE-REF 'FNODE OBJECT 6.)))
  791.    )
  792.    #Y(FNODE-BLOCKS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 6.)
  793.    (FUNCTION FNODE-TAGBODYS-OFFSET (FNODE) T) (INLINE FNODE-TAGBODYS-OFFSET) FNODE-TAGBODYS-OFFSET
  794.    (#2# (DECLARE (IN-DEFUN FNODE-TAGBODYS-OFFSET))
  795.     (BLOCK FNODE-TAGBODYS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 7.)))
  796.    )
  797.    #Y(FNODE-TAGBODYS-OFFSET #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 7.)
  798.    (FUNCTION FNODE-TAGBODYS (FNODE) T) (INLINE FNODE-TAGBODYS) FNODE-TAGBODYS
  799.    (#2# (DECLARE (IN-DEFUN FNODE-TAGBODYS))
  800.     (BLOCK FNODE-TAGBODYS (THE T (%STRUCTURE-REF 'FNODE OBJECT 8.)))
  801.    )
  802.    #Y(FNODE-TAGBODYS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 8.)
  803.    (FUNCTION FNODE-KEYWORD-OFFSET (FNODE) T) (INLINE FNODE-KEYWORD-OFFSET) FNODE-KEYWORD-OFFSET
  804.    (#2# (DECLARE (IN-DEFUN FNODE-KEYWORD-OFFSET))
  805.     (BLOCK FNODE-KEYWORD-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 9.)))
  806.    )
  807.    #Y(FNODE-KEYWORD-OFFSET #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 9.)
  808.    (FUNCTION FNODE-REQ-ANZ (FNODE) T) (INLINE FNODE-REQ-ANZ) FNODE-REQ-ANZ
  809.    (#2# (DECLARE (IN-DEFUN FNODE-REQ-ANZ))
  810.     (BLOCK FNODE-REQ-ANZ (THE T (%STRUCTURE-REF 'FNODE OBJECT 10.)))
  811.    )
  812.    #Y(FNODE-REQ-ANZ #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 10.)
  813.    (FUNCTION FNODE-OPT-ANZ (FNODE) T) (INLINE FNODE-OPT-ANZ) FNODE-OPT-ANZ
  814.    (#2# (DECLARE (IN-DEFUN FNODE-OPT-ANZ))
  815.     (BLOCK FNODE-OPT-ANZ (THE T (%STRUCTURE-REF 'FNODE OBJECT 11.)))
  816.    )
  817.    #Y(FNODE-OPT-ANZ #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 11.)
  818.    (FUNCTION FNODE-REST-FLAG (FNODE) T) (INLINE FNODE-REST-FLAG) FNODE-REST-FLAG
  819.    (#2# (DECLARE (IN-DEFUN FNODE-REST-FLAG))
  820.     (BLOCK FNODE-REST-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 12.)))
  821.    )
  822.    #Y(FNODE-REST-FLAG #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 12.)
  823.    (FUNCTION FNODE-KEYWORD-FLAG (FNODE) T) (INLINE FNODE-KEYWORD-FLAG) FNODE-KEYWORD-FLAG
  824.    (#2# (DECLARE (IN-DEFUN FNODE-KEYWORD-FLAG))
  825.     (BLOCK FNODE-KEYWORD-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 13.)))
  826.    )
  827.    #Y(FNODE-KEYWORD-FLAG #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 13.)
  828.    (FUNCTION FNODE-KEYWORDS (FNODE) T) (INLINE FNODE-KEYWORDS) FNODE-KEYWORDS
  829.    (#2# (DECLARE (IN-DEFUN FNODE-KEYWORDS))
  830.     (BLOCK FNODE-KEYWORDS (THE T (%STRUCTURE-REF 'FNODE OBJECT 14.)))
  831.    )
  832.    #Y(FNODE-KEYWORDS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 14.)
  833.    (FUNCTION FNODE-ALLOW-OTHER-KEYS-FLAG (FNODE) T) (INLINE FNODE-ALLOW-OTHER-KEYS-FLAG)
  834.    FNODE-ALLOW-OTHER-KEYS-FLAG
  835.    (#2# (DECLARE (IN-DEFUN FNODE-ALLOW-OTHER-KEYS-FLAG))
  836.     (BLOCK FNODE-ALLOW-OTHER-KEYS-FLAG (THE T (%STRUCTURE-REF 'FNODE OBJECT 15.)))
  837.    )
  838.    #Y(FNODE-ALLOW-OTHER-KEYS-FLAG #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 15.)
  839.    (FUNCTION FNODE-CONSTS-OFFSET (FNODE) T) (INLINE FNODE-CONSTS-OFFSET) FNODE-CONSTS-OFFSET
  840.    (#2# (DECLARE (IN-DEFUN FNODE-CONSTS-OFFSET))
  841.     (BLOCK FNODE-CONSTS-OFFSET (THE T (%STRUCTURE-REF 'FNODE OBJECT 16.)))
  842.    )
  843.    #Y(FNODE-CONSTS-OFFSET #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 16.)
  844.    (FUNCTION FNODE-CONSTS (FNODE) T) (INLINE FNODE-CONSTS) FNODE-CONSTS
  845.    (#2# (DECLARE (IN-DEFUN FNODE-CONSTS))
  846.     (BLOCK FNODE-CONSTS (THE T (%STRUCTURE-REF 'FNODE OBJECT 17.)))
  847.    )
  848.    #Y(FNODE-CONSTS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 17.)
  849.    (FUNCTION FNODE-CONSTS-FORMS (FNODE) T) (INLINE FNODE-CONSTS-FORMS) FNODE-CONSTS-FORMS
  850.    (#2# (DECLARE (IN-DEFUN FNODE-CONSTS-FORMS))
  851.     (BLOCK FNODE-CONSTS-FORMS (THE T (%STRUCTURE-REF 'FNODE OBJECT 18.)))
  852.    )
  853.    #Y(FNODE-CONSTS-FORMS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 18.)
  854.    (FUNCTION FNODE-ENCLOSING (FNODE) T) (INLINE FNODE-ENCLOSING) FNODE-ENCLOSING
  855.    (#2# (DECLARE (IN-DEFUN FNODE-ENCLOSING))
  856.     (BLOCK FNODE-ENCLOSING (THE T (%STRUCTURE-REF 'FNODE OBJECT 19.)))
  857.    )
  858.    #Y(FNODE-ENCLOSING #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 19.)
  859.    (FUNCTION FNODE-GF-P (FNODE) T) (INLINE FNODE-GF-P) FNODE-GF-P
  860.    (#2# (DECLARE (IN-DEFUN FNODE-GF-P))
  861.     (BLOCK FNODE-GF-P (THE T (%STRUCTURE-REF 'FNODE OBJECT 20.)))
  862.    )
  863.    #Y(FNODE-GF-P #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) FNODE 20.) SETF-EXPANDER -1.
  864.    #Y(SETF-FNODE-NAME #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
  865.       'FNODE 1.
  866.      )
  867.    SETF %SET-DOCUMENTATION
  868.    #Y(SETF-FNODE-CODE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
  869.       'FNODE 2.
  870.      )
  871.    #Y(SETF-FNODE-VENVCONST #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  872.       %STRUCTURE-STORE 'FNODE 3.
  873.      )
  874.    #Y(SETF-FNODE-VENVC #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
  875.       'FNODE 4.
  876.      )
  877.    #Y(SETF-FNODE-BLOCKS-OFFSET #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  878.       %STRUCTURE-STORE 'FNODE 5.
  879.      )
  880.    #Y(SETF-FNODE-BLOCKS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  881.       %STRUCTURE-STORE 'FNODE 6.
  882.      )
  883.    #Y(SETF-FNODE-TAGBODYS-OFFSET #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  884.       %STRUCTURE-STORE 'FNODE 7.
  885.      )
  886.    #Y(SETF-FNODE-TAGBODYS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  887.       %STRUCTURE-STORE 'FNODE 8.
  888.      )
  889.    #Y(SETF-FNODE-KEYWORD-OFFSET #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  890.       %STRUCTURE-STORE 'FNODE 9.
  891.      )
  892.    #Y(SETF-FNODE-REQ-ANZ #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  893.       %STRUCTURE-STORE 'FNODE 10.
  894.      )
  895.    #Y(SETF-FNODE-OPT-ANZ #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  896.       %STRUCTURE-STORE 'FNODE 11.
  897.      )
  898.    #Y(SETF-FNODE-REST-FLAG #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  899.       %STRUCTURE-STORE 'FNODE 12.
  900.      )
  901.    #Y(SETF-FNODE-KEYWORD-FLAG #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  902.       %STRUCTURE-STORE 'FNODE 13.
  903.      )
  904.    #Y(SETF-FNODE-KEYWORDS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  905.       %STRUCTURE-STORE 'FNODE 14.
  906.      )
  907.    #Y(SETF-FNODE-ALLOW-OTHER-KEYS-FLAG #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  908.       %STRUCTURE-STORE 'FNODE 15.
  909.      )
  910.    #Y(SETF-FNODE-CONSTS-OFFSET #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  911.       %STRUCTURE-STORE 'FNODE 16.
  912.      )
  913.    #Y(SETF-FNODE-CONSTS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  914.       %STRUCTURE-STORE 'FNODE 17.
  915.      )
  916.    #Y(SETF-FNODE-CONSTS-FORMS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  917.       %STRUCTURE-STORE 'FNODE 18.
  918.      )
  919.    #Y(SETF-FNODE-ENCLOSING #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  920.       %STRUCTURE-STORE 'FNODE 19.
  921.      )
  922.    #Y(SETF-FNODE-GF-P #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
  923.       'FNODE 20.
  924.      )
  925.    STRUCTURE STRUCTURE-PRINT
  926.   )
  927. #Y(#:TOP-LEVEL-FORM-75 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) FNODE DEFSTRUCT-DESCRIPTION)
  928. #Y(#:TOP-LEVEL-FORM-76 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FUNC*) *FUNC*)
  929. #Y(#:TOP-LEVEL-FORM-77 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FUNC-START-LABEL*)
  930.    *FUNC-START-LABEL*
  931.   )
  932. #Y(#:TOP-LEVEL-FORM-78 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *ANONYMOUS-COUNT*)
  933.    *ANONYMOUS-COUNT*
  934.   )
  935. #Y(#:TOP-LEVEL-FORM-79 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *NO-CODE*) *NO-CODE*)
  936. #Y(#:TOP-LEVEL-FORM-80 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FORM*) *FORM*)
  937. #Y(#:TOP-LEVEL-FORM-81 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FOR-VALUE*) *FOR-VALUE*)
  938. #Y(#:TOP-LEVEL-FORM-82
  939.    #153Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 D8 D9 DA 60 5F DB 6F 04 00 31 7A D8 2E 07 DD 30 5B
  940.          DE 2E 01 DE DF E0 31 7A DE E1 31 74 E2 30 5B E3 30 5B E4 2E 01 E4 DF E5 31 7A E4 E6 31 74
  941.          E7 30 5B E8 30 5B E9 2E 01 E9 DF EA 31 7A E9 EB 31 74 EC 30 5B ED 30 5B EE 2E 01 EE DF EF
  942.          31 7A EE F0 31 74 E4 F1 F2 03 1E 76 31 7A E4 F4 5F 2C 03 20 E9 F1 F2 03 21 76 31 7A E9 F4
  943.          5F 2C 03 20 EE F1 F2 03 22 76 31 7A EE F4 5F 2C 03 20 D8 61 23 5F 2C 03 20 D8 61 24 31 7B
  944.          C3 19 01
  945.         )
  946.    MK-ANODE REMOVE-OLD-DEFINITIONS
  947.    #Y(MK-ANODE
  948.       #31Y(03 00 00 00 00 04 D5 D6 6E 2C D7 A8 D8 AE 31 2B D7 A8 D9 AD 31 2B D7 A8 DA AC 31 2B 15
  949.            19 04
  950.           )
  951.       #1=(ANODE) 4. ANODE 1. 2. 3.
  952.      )
  953.    ANODE DEFSTRUCT-DESCRIPTION #1# ((TYPE 1. NIL T NIL) (SECLASS 2. NIL T NIL) (CODE 3. NIL T NIL))
  954.    CLOS::DEFINE-STRUCTURE-CLASS (INLINE ANODE-P) ANODE-P INLINE-EXPANSION
  955.    ((OBJECT) (DECLARE (IN-DEFUN ANODE-P)) (BLOCK ANODE-P (%STRUCTURE-TYPE-P 'ANODE OBJECT)))
  956.    #Y(ANODE-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) ANODE) (FUNCTION ANODE-TYPE (ANODE) T)
  957.    (INLINE ANODE-TYPE) ANODE-TYPE
  958.    (#2=(OBJECT) (DECLARE (IN-DEFUN ANODE-TYPE))
  959.     (BLOCK ANODE-TYPE (THE T (%STRUCTURE-REF 'ANODE OBJECT 1.)))
  960.    )
  961.    #Y(ANODE-TYPE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) ANODE 1.)
  962.    (FUNCTION ANODE-SECLASS (ANODE) T) (INLINE ANODE-SECLASS) ANODE-SECLASS
  963.    (#2# (DECLARE (IN-DEFUN ANODE-SECLASS))
  964.     (BLOCK ANODE-SECLASS (THE T (%STRUCTURE-REF 'ANODE OBJECT 2.)))
  965.    )
  966.    #Y(ANODE-SECLASS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) ANODE 2.)
  967.    (FUNCTION ANODE-CODE (ANODE) T) (INLINE ANODE-CODE) ANODE-CODE
  968.    (#2# (DECLARE (IN-DEFUN ANODE-CODE))
  969.     (BLOCK ANODE-CODE (THE T (%STRUCTURE-REF 'ANODE OBJECT 3.)))
  970.    )
  971.    #Y(ANODE-CODE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) ANODE 3.) SETF-EXPANDER -1.
  972.    #Y(SETF-ANODE-TYPE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
  973.       'ANODE 1.
  974.      )
  975.    SETF %SET-DOCUMENTATION
  976.    #Y(SETF-ANODE-SECLASS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  977.       %STRUCTURE-STORE 'ANODE 2.
  978.      )
  979.    #Y(SETF-ANODE-CODE #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04) %STRUCTURE-STORE
  980.       'ANODE 3.
  981.      )
  982.    STRUCTURE STRUCTURE-PRINT
  983.   )
  984. #Y(#:TOP-LEVEL-FORM-83 #12Y(00 00 00 00 00 01 D5 D6 31 7B 19 01) ANODE DEFSTRUCT-DESCRIPTION)
  985. #Y(#:TOP-LEVEL-FORM-84 #9Y(00 00 00 00 00 01 00 19 01))
  986. #Y(#:TOP-LEVEL-FORM-85 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SECLASS-OR
  987.    REMOVE-OLD-DEFINITIONS
  988.    #Y(SECLASS-OR #21Y(00 00 00 00 01 16 8F 01 09 95 01 A9 37 04 31 45 19 02 C0 19 02) (NIL)
  989.       SECLASS-OR-2
  990.   )  )
  991. #Y(#:TOP-LEVEL-FORM-86 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SECLASS-OR-2
  992.    REMOVE-OLD-DEFINITIONS
  993.    #Y(SECLASS-OR-2
  994.       #48Y(02 00 00 00 00 03 90 02 02 21 1F 90 01 02 21 1A 90 02 90 02 2F 00 14 91 03 02 21 11 91
  995.            02 02 21 0C 91 03 91 03 2F 00 58 19 03 02 1A 69 02 1A 77
  996.           )
  997.       UNION
  998.   )  )
  999. #Y(#:TOP-LEVEL-FORM-87 #9Y(00 00 00 00 00 01 00 19 01))
  1000. #Y(#:TOP-LEVEL-FORM-88 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANODELIST-SECLASS-OR
  1001.    REMOVE-OLD-DEFINITIONS
  1002.    #Y(ANODELIST-SECLASS-OR #17Y(01 00 00 00 00 02 95 00 95 01 AA 32 00 17 97 00 02) SECLASS-OR
  1003.       ANODE-SECLASS
  1004.   )  )
  1005. #Y(#:TOP-LEVEL-FORM-89 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SECLASS-WITHOUT
  1006.    REMOVE-OLD-DEFINITIONS
  1007.    #Y(SECLASS-WITHOUT
  1008.       #51Y(02 00 00 00 00 03 00 2A 01 7B 02 00 00 A7 69 00 01 90 04 02 21 17 A7 90 05 37 05 31 49
  1009.            14 91 05 02 21 0D A8 91 06 37 05 31 49 58 19 05 02 1A 6D 02 1A 77
  1010.           )
  1011.       #Y(SECLASS-WITHOUT-BOUND #16Y(01 00 00 00 00 02 A8 65 00 01 37 03 30 B3 19 02) NIL)
  1012.   )  )
  1013. #Y(#:TOP-LEVEL-FORM-90 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANODES-COMMUTE
  1014.    REMOVE-OLD-DEFINITIONS
  1015.    #Y(ANODES-COMMUTE #20Y(02 00 00 00 00 03 D5 AA D6 6E 2A D5 AA D6 6E 2A 2F 02 19 03) ANODE 2.
  1016.       SECLASSES-COMMUTE
  1017.   )  )
  1018. #Y(#:TOP-LEVEL-FORM-91 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SECLASSES-COMMUTE
  1019.    REMOVE-OLD-DEFINITIONS
  1020.    #Y(SECLASSES-COMMUTE
  1021.       #24Y(02 00 00 00 00 03 90 02 91 02 C0 33 1E 08 90 01 91 03 C0 33 19 03 19 03)
  1022.       #Y(SECLASSES-COMMUTE-DISJOINT-P
  1023.          #35Y(02 00 00 00 00 03 9A 54 1D 17 99 54 1D 13 A9 02 55 54 1E 0D A8 02 55 54 1E 07 A9 A9
  1024.               2F 00 54 19 03 19 03
  1025.              )
  1026.          INTERSECTION
  1027.   )  )  )
  1028. #Y(#:TOP-LEVEL-FORM-92 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1029.    GET-FUNNAME-STRING+PACK REMOVE-OLD-DEFINITIONS
  1030.    #Y(GET-FUNNAME-STRING+PACK
  1031.       #41Y(01 00 00 00 00 02 99 1F 1A D5 D6 90 03 6E 7E D7 9D 57 74 6E 7E D8 6F 05 23 9A 57 56 14
  1032.            6E 7C 3F 02 19 02 A8 6E 7E 9A 1A 73
  1033.           )
  1034.       STRING "(" " " ")"
  1035.   )  )
  1036. #Y(#:TOP-LEVEL-FORM-93 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SYMBOL-SUFFIX
  1037.    REMOVE-OLD-DEFINITIONS
  1038.    #Y(SYMBOL-SUFFIX
  1039.       #73Y(02 00 00 00 00 03 A9 8B 03 08 A9 8A 7C 04 A8 84 00 28 A9 2E 01 41 02 AA 8A 03 22 AA 8A
  1040.            04 0C AA 37 0B 79 06 C2 FA 79 05 7C 85 03 D8 A9 D9 AD 6F 03 23 8E 01 0E A7 30 CA 19 06
  1041.            99 19 03 AA 7D 7E 03 1A 68 A7 A9 30 D3 19 06
  1042.           )
  1043.       FUNCTION-NAME-P GET-FUNNAME-STRING+PACK 10. STRING "-"
  1044.   )  )
  1045. #Y(#:TOP-LEVEL-FORM-94 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-COMMENT
  1046.    REMOVE-OLD-DEFINITIONS
  1047.    #Y(C-COMMENT
  1048.       #31Y(01 00 00 00 01 17 0E 00 1B 09 0E 02 14 8E 00 07 00 19 04 0E 01 1A 75 95 03 A8 AC 9D 97
  1049.            02 04
  1050.           )
  1051.       *COMPILE-VERBOSE* *C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT
  1052.   )  )
  1053. #Y(#:TOP-LEVEL-FORM-95 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *WARNING-COUNT*)
  1054.    *WARNING-COUNT*
  1055.   )
  1056. #Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-WARN
  1057.    REMOVE-OLD-DEFINITIONS
  1058.    #Y(C-WARN
  1059.       #68Y(01 00 00 00 01 17 D5 D6 AB 7E 02 23 02 67 02 31 89 0F 02 0E 03 1B 09 0E 05 14 8E 00 07
  1060.            00 19 04 0E 04 1A 75 95 06 A8 AC DC 89 50 13 67 07 DD A8 31 2E 16 01 1C 09 67 07 DD A8
  1061.            DE 31 2A 16 01 14 9E 97 03 04
  1062.           )
  1063.       STRING "~%WARNING~@[ in function ~S~] :~%" *WARNING-COUNT* *COMPILE-WARNINGS*
  1064.       *C-ERROR-OUTPUT* *C-LISTING-OUTPUT* FORMAT *FUNC* FNODE 1.
  1065.   )  )
  1066. #Y(#:TOP-LEVEL-FORM-97 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *ERROR-COUNT*)
  1067.    *ERROR-COUNT*
  1068.   )
  1069. #Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-ERROR
  1070.    REMOVE-OLD-DEFINITIONS
  1071.    #Y(C-ERROR
  1072.       #78Y(01 00 00 00 01 17 D5 D6 AB 7E 02 23 02 67 02 31 89 0F 02 D8 89 50 13 67 03 D9 A8 31 2E
  1073.            16 01 1C 09 67 03 D9 A8 DA 31 2A 16 01 14 8F 00 0D 0E 06 1C 09 A7 67 07 37 03 30 B7 0F
  1074.            07 95 08 67 09 AC AA 9E 36 03 16 01 DF E0 E1 E2 2C 03 0E 4F
  1075.           )
  1076.       STRING "~%ERROR~@[ in function ~S~] :~%" *ERROR-COUNT* *FUNC* FNODE 1. *COMPILING-FROM-FILE*
  1077.       *FUNCTIONS-WITH-ERRORS* FORMAT *C-ERROR-OUTPUT* C-ERROR ERROR (NIL) ((NIL)) MK-ANODE
  1078.   )  )
  1079. #Y(#:TOP-LEVEL-FORM-99 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-EVAL-WHEN-COMPILE
  1080.    REMOVE-OLD-DEFINITIONS
  1081.    #Y(C-EVAL-WHEN-COMPILE
  1082.       #42Y(01 00 00 00 00 02 0E 00 1C 1B 0E 01 1C 17 67 01 30 8B A8 37 0B 7A 01 F6 F8 F9 FD FC 79
  1083.            09 FE 7A 05 67 01 30 80 A8 30 5C 19 02
  1084.           )
  1085.       *COMPILING-FROM-FILE* *LIBOUTPUT-STREAM*
  1086.   )  )
  1087. #Y(#:TOP-LEVEL-FORM-100 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-CONSTANTP
  1088.    REMOVE-OLD-DEFINITIONS
  1089.    #Y(C-CONSTANTP
  1090.       #84Y(01 00 00 00 00 02 99 1F 1B 90 01 C2 55 1E 80 42 91 01 31 01 1E 3C 99 57 57 54 19 02 02
  1091.            19 02 A8 30 5F 19 02 A8 31 05 1D 29 A8 31 18 1D 24 A8 31 04 1D 1F A8 31 1E 1D 1A A8 31
  1092.            03 1E 15 A8 8A 7F 5B A8 6E 7C 0E 00 21 57 A8 67 01 37 03 30 BA 54 1A 47 19 02
  1093.           )
  1094.       *LISP-PACKAGE* *CONSTANT-SPECIAL-VARS* QUOTE
  1095.   )  )
  1096. #Y(#:TOP-LEVEL-FORM-101 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-CONSTANT-VALUE
  1097.    REMOVE-OLD-DEFINITIONS
  1098.    #Y(C-CONSTANT-VALUE
  1099.       #66Y(01 00 00 00 00 02 99 20 34 A8 8A 05 14 A8 8A 18 10 A8 8A 04 0C A8 8A 1E 08 A8 8B 03 1D
  1100.            A8 8B 7F 08 99 19 02 A8 30 4F 19 02 A8 6E 7C 0E 00 21 74 A8 67 01 37 03 30 BA 57 19 02
  1101.            00 19 02 99 57 56 19 02
  1102.           )
  1103.       *LISP-PACKAGE* *CONSTANT-SPECIAL-VARS*
  1104.   )  )
  1105. #Y(#:TOP-LEVEL-FORM-102 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANODE-CONSTANTP
  1106.    REMOVE-OLD-DEFINITIONS
  1107.    #Y(ANODE-CONSTANTP
  1108.       #47Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 31 01 1E 1D 98 57 54 1E 18 90 00 98 20 08 D5 A8 8A
  1109.            2E 09 00 19 04 90 00 C2 55 19 04 A7 28 01 05 59 19 03
  1110.           )
  1111.       ANODE 3. CONST
  1112.   )  )
  1113. #Y(#:TOP-LEVEL-FORM-103 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANODE-CONSTANT
  1114.    REMOVE-OLD-DEFINITIONS
  1115.    #Y(ANODE-CONSTANT
  1116.       #25Y(01 00 00 00 00 02 D5 A9 D6 31 2A 74 98 20 05 A7 28 01 04 72 98 57 56 19 03) ANODE 3.
  1117.   )  )
  1118. #Y(#:TOP-LEVEL-FORM-104 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANODE-CONSTANT-VALUE
  1119.    REMOVE-OLD-DEFINITIONS
  1120.    #Y(ANODE-CONSTANT-VALUE #16Y(01 00 00 00 00 02 A8 6B 00 D6 A8 D7 31 2A 19 03) ANODE-CONSTANT
  1121.       CONST 1.
  1122.   )  )
  1123. #Y(#:TOP-LEVEL-FORM-105 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NEW-CONST
  1124.    REMOVE-OLD-DEFINITIONS #Y(NEW-CONST #12Y(01 00 00 00 00 02 D5 A9 2F 01 19 02) :VALUE MAKE-CONST)
  1125.   )
  1126. #Y(#:TOP-LEVEL-FORM-106 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-LABEL
  1127.    REMOVE-OLD-DEFINITIONS
  1128.    #Y(MAKE-LABEL #22Y(01 00 00 00 00 02 37 01 6E 82 A7 5F 30 53 A7 D5 AB 31 7A 15 19 02) FOR-VALUE)
  1129.   )
  1130. #Y(#:TOP-LEVEL-FORM-107 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-SPECIAL-VAR
  1131.    REMOVE-OLD-DEFINITIONS
  1132.    #Y(MAKE-SPECIAL-VAR
  1133.       #37Y(01 00 00 00 00 02 D5 A9 D6 60 D7 AD 6B 03 D9 AF 84 03 07 00 14 2C 08 09 19 02 DA B0 6B
  1134.            06 DC B2 2C 04 08 1A 6F
  1135.           )
  1136.       :NAME :SPECIALP :CONSTANTP C-CONSTANTP :CONSTANT :VALUE C-CONSTANT-VALUE :FORM MAKE-CONST
  1137.       MAKE-VAR
  1138.   )  )
  1139. #Y(#:TOP-LEVEL-FORM-108 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TEST-LIST
  1140.    REMOVE-OLD-DEFINITIONS
  1141.    #Y(TEST-LIST
  1142.       #64Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3C 01 AA 8B 08 06 AA 30 9C 57 1C 04 D6 AB 2F 02 AA 6E
  1143.            41 AA 8D 01 30 0E 8F 01 08 AA 6E 41 A9 8D 01 2F 0C 00 19 04 D8 AB 2F 02 8F 01 76 1A 6C
  1144.            D9 AB 2F 02 19 04
  1145.           )
  1146.       0. "Code contains dotted list ~S" C-ERROR "Form too short, too few arguments: ~S"
  1147.       "Form too long, too many arguments: ~S"
  1148.   )  )
  1149. #Y(#:TOP-LEVEL-FORM-109
  1150.    #65Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 DA DB DC C8
  1151.         76 DE CA 76 CB 78 04 A7 1A 0F 90 00 90 00 91 01 A8 AD A9 30 65 16 03 7F 00 98 20 6E 16 02
  1152.         31 75 C0 19 01
  1153.        )
  1154.    C-FORM-TABLE "~S redefines the constant ~S. Its old value was ~S."
  1155.    (DEFCONSTANT C-FORM-TABLE
  1156.     (LET ((HASHTABLE (MAKE-HASH-TABLE :TEST #'EQ)))
  1157.      (MAPC #'(LAMBDA (ACONS) (SETF (GETHASH (CAR ACONS) HASHTABLE) (CDR ACONS)))
  1158.       `((QUOTE . C-QUOTE) (PROGN . C-PROGN) (LET . ,#'(LAMBDA NIL (C-LET/LET* NIL)))
  1159.         (LET* . ,#'(LAMBDA NIL (C-LET/LET* T))) (IF . C-IF) (SETQ . C-SETQ) (BLOCK . C-BLOCK)
  1160.         (RETURN-FROM . C-RETURN-FROM) (TAGBODY . C-TAGBODY) (GO . C-GO) (FUNCTION . C-FUNCTION)
  1161.         (MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND) (MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ)
  1162.         (AND . C-AND) (OR . C-OR) (WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND)
  1163.         (PSETQ . C-PSETQ) (MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL) (PROG1 . C-PROG1)
  1164.         (PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH) (THROW . C-THROW)
  1165.         (UNWIND-PROTECT . C-UNWIND-PROTECT) (PROGV . C-PROGV)
  1166.         (MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
  1167.         (MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET) (LABELS . C-LABELS)
  1168.         (MACROLET . C-MACROLET) (SYMBOL-MACROLET . C-SYMBOL-MACROLET)
  1169.         (COMPILER-LET . C-COMPILER-LET) (EVAL-WHEN . C-EVAL-WHEN) (DECLARE . C-DECLARE)
  1170.         (LOAD-TIME-VALUE . C-LOAD-TIME-VALUE) (LOCALLY . C-LOCALLY) (CASE . C-CASE)
  1171.         (%GENERIC-FUNCTION-LAMBDA . C-%GENERIC-FUNCTION-LAMBDA)
  1172.         (%OPTIMIZE-FUNCTION-LAMBDA . C-%OPTIMIZE-FUNCTION-LAMBDA)
  1173.         (CLOS:GENERIC-FLET . C-GENERIC-FLET) (CLOS:GENERIC-LABELS . C-GENERIC-LABELS)
  1174.         (FUNCALL . C-FUNCALL) (%FUNCALL . C-FUNCALL) (APPLY . C-APPLY) (+ . C-PLUS) (- . C-MINUS)
  1175.         (SVSTORE . C-SVSTORE) (EQ . C-EQ) (EQL . C-EQL) (EQUAL . C-EQUAL) (MAPCAR . C-MAPCAR)
  1176.         (MAPLIST . C-MAPLIST) (MAPC . C-MAPC) (MAPL . C-MAPL) (MAPCAN . C-MAPCAN)
  1177.         (MAPCON . C-MAPCON) (MAPCAP . C-MAPCAP) (MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
  1178.      ) )
  1179.      HASHTABLE
  1180.    ))
  1181.    WARN #.#'EQ #1=(QUOTE . C-QUOTE) #2=(PROGN . C-PROGN) LET
  1182.    #Y(#:TOP-LEVEL-FORM-109-1 #11Y(00 00 00 00 00 01 5F 2E 00 19 01) C-LET/LET*) LET*
  1183.    #Y(#:TOP-LEVEL-FORM-109-2 #11Y(00 00 00 00 00 01 60 2E 00 19 01) C-LET/LET*)
  1184.    #3=((IF . C-IF) (SETQ . C-SETQ) (BLOCK . C-BLOCK) (RETURN-FROM . C-RETURN-FROM)
  1185.        (TAGBODY . C-TAGBODY) (GO . C-GO) (FUNCTION . C-FUNCTION)
  1186.        (MULTIPLE-VALUE-BIND . C-MULTIPLE-VALUE-BIND) (MULTIPLE-VALUE-SETQ . C-MULTIPLE-VALUE-SETQ)
  1187.        (AND . C-AND) (OR . C-OR) (WHEN . C-WHEN) (UNLESS . C-UNLESS) (COND . C-COND)
  1188.        (PSETQ . C-PSETQ) (MULTIPLE-VALUE-CALL . C-MULTIPLE-VALUE-CALL) (PROG1 . C-PROG1)
  1189.        (PROG2 . C-PROG2) (THE . C-THE) (CATCH . C-CATCH) (THROW . C-THROW)
  1190.        (UNWIND-PROTECT . C-UNWIND-PROTECT) (PROGV . C-PROGV)
  1191.        (MULTIPLE-VALUE-LIST . C-MULTIPLE-VALUE-LIST)
  1192.        (MULTIPLE-VALUE-PROG1 . C-MULTIPLE-VALUE-PROG1) (FLET . C-FLET) (LABELS . C-LABELS)
  1193.        (MACROLET . C-MACROLET) (SYMBOL-MACROLET . C-SYMBOL-MACROLET)
  1194.        (COMPILER-LET . C-COMPILER-LET) (EVAL-WHEN . C-EVAL-WHEN) (DECLARE . C-DECLARE)
  1195.        (LOAD-TIME-VALUE . C-LOAD-TIME-VALUE) (LOCALLY . C-LOCALLY) (CASE . C-CASE)
  1196.        (%GENERIC-FUNCTION-LAMBDA . C-%GENERIC-FUNCTION-LAMBDA)
  1197.        (%OPTIMIZE-FUNCTION-LAMBDA . C-%OPTIMIZE-FUNCTION-LAMBDA)
  1198.        (CLOS:GENERIC-FLET . C-GENERIC-FLET) (CLOS:GENERIC-LABELS . C-GENERIC-LABELS)
  1199.        (FUNCALL . C-FUNCALL) (%FUNCALL . C-FUNCALL) (APPLY . C-APPLY) (+ . C-PLUS) (- . C-MINUS)
  1200.        (SVSTORE . C-SVSTORE) (EQ . C-EQ) (EQL . C-EQL) (EQUAL . C-EQUAL) (MAPCAR . C-MAPCAR)
  1201.        (MAPLIST . C-MAPLIST) (MAPC . C-MAPC) (MAPL . C-MAPL) (MAPCAN . C-MAPCAN)
  1202.        (MAPCON . C-MAPCON) (MAPCAP . C-MAPCAP) (MAPLAP . C-MAPLAP) (TYPEP . C-TYPEP)
  1203.   )   )
  1204. #Y(#:TOP-LEVEL-FORM-110 #12Y(00 00 00 00 00 01 D5 30 E2 00 19 01)
  1205.    #Y(#:TOP-LEVEL-FORM-110-1
  1206.       #26Y(01 00 00 00 00 02 A8 89 52 08 A8 67 00 37 01 89 64 03 00 19 02 D5 2E 01 19 02)
  1207.       C-FORM-TABLE COMPILER-ERROR
  1208.   )  )
  1209. #Y(#:TOP-LEVEL-FORM-111 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FORM
  1210.    REMOVE-OLD-DEFINITIONS
  1211.    #Y(C-FORM
  1212.       #319Y(01 00 01 00 00 08 9A 10 00 3A 04 02 0E 01 10 01 C2 4D 81 19 0E 00 1F 80 41 0E 00 74 A7
  1213.             84 0A 80 81 98 1F 81 01 90 00 24 1C 80 FB F2 ED A9 77 02 0E 00 57 5D 02 14 37 01 27 4C
  1214.             1A 80 ED A7 DB 31 27 1A 72 67 00 67 03 6C 04 A7 84 05 70 67 00 2E 07 1A 80 D6 2D 08 4E
  1215.             1A 80 D3 67 00 8A 03 64 67 00 8A 05 70 67 00 8A 18 6B 67 00 8A 04 66 67 00 8A 1E 61 DE
  1216.             67 00 2F 02 4E 1A 80 B1 14 35 00 1A 80 5A 67 00 67 03 67 0D 6F 02 00 6D 5A 37 01 27 FF
  1217.             74 1A 80 47 AB 67 0E 00 76 0E 00 75 2C 03 15 1A 3A A7 2E 0B 41 03 8E 02 38 AA 67 0C 37
  1218.             01 6D 64 8E 00 48 AB 8B 03 04 AB 88 58 46 AB 67 0E E4 A8 E5 7D 2A 00 89 FF 11 AB 84 11
  1219.             0D E7 AC 77 02 67 13 E9 37 02 88 B3 FF BC AB 2E 16 16 05 4E 1A 80 4B 9A 25 17 27 67 00
  1220.             67 03 67 0D 6F 02 00 6D 5A 37 01 27 FF 10 1A 18 ED AB 77 02 0E 00 75 2F 19 1A 0D AA A8
  1221.             0E 00 75 2C 03 15 1A 03 EF 2E 1B 16 04 4E 1A 18 F4 A8 61 21 5F 31 2B F4 A8 F5 61 22 31
  1222.             2B 15 1A 15 F3 A8 2F 02 16 01 4E 14 0E 01 1B 08 F4 A8 F5 31 2A 57 1C 5B 15 12 02 19 03
  1223.            )
  1224.       *FORM* *FOR-VALUE* C-ERROR *VENV* VENV-SEARCH-MACRO SYMBOL-MACRO-P 0. C-VAR C-CONST
  1225.       "Invalid form: ~S" FUNCTION-NAME-P FENV-SEARCH C-FORM-TABLE *FENV* *FUNC* FNODE 1.
  1226.       DECLARED-NOTINLINE IN-DEFUN *DENV* #.#'EQUAL C-LOCAL-FUNCTION-CALL C-GLOBAL-FUNCTION-CALL
  1227.       #S(HASH-TABLE EQ (LOCAL . 30.) (GLOBAL . 19.) (MACRO . 1.)) FUNCTION C-FUNCALL-NOTINLINE
  1228.       C-FORM COMPILER-ERROR LAMBDA %FUNCALL "Not the name of a function: ~S" ANODE 2. 3. (NIL)
  1229.   )  )
  1230. #Y(#:TOP-LEVEL-FORM-112 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-NIL
  1231.    REMOVE-OLD-DEFINITIONS
  1232.    #Y(C-NIL #14Y(00 00 00 00 00 01 5F D5 D6 2C 03 02 19 01) (NIL) ((NIL)) MK-ANODE)
  1233.   )
  1234. #Y(#:TOP-LEVEL-FORM-113 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-CONST
  1235.    REMOVE-OLD-DEFINITIONS
  1236.    #Y(C-CONST #22Y(00 00 00 00 00 01 D5 D6 D5 67 02 6B 03 77 02 77 01 2C 03 04 19 01) CONST (NIL)
  1237.       *FORM* NEW-CONST MK-ANODE
  1238.   )  )
  1239. #Y(#:TOP-LEVEL-FORM-114 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-VAR
  1240.    REMOVE-OLD-DEFINITIONS
  1241.    #Y(C-VAR
  1242.       #303Y(01 00 00 00 00 02 A8 2E 00 41 03 8E 02 14 D6 AC 2F 02 0E 03 1C 0A AB 67 04 DA 37 02 30
  1243.             B7 0F 04 C6 F8 9A 25 07 81 01 AD 5C 01 1A 23 00 1A 0B E1 E2 B0 6B 0E E4 B2 8A 7F 73 A3
  1244.             14 2C 04 10 1A 1E AB 6B 08 DE 0E 0A 1C 06 DE A9 E0 8B 2A 59 00 14 00 76 0E 0A 1C 0F DE
  1245.             AA E0 8A 2A 53 E6 A0 14 77 02 5C 01 1A 01 00 14 2C 03 12 19 06 02 1A 19 E1 AB 6B 13 77
  1246.             02 E9 E1 AC 6B 13 77 02 03 15 5D 03 1A 0E DE 0E 0A 1B 65 00 14 00 76 0E 0A 1B 60 00 14
  1247.             2C 03 12 19 05 A9 5C 01 1A 17 EB AB 67 17 67 18 77 04 5C 01 1A 13 16 01 1A 80 79 DE 0E
  1248.             0A 1B 65 00 14 00 76 0E 0A 1B 62 00 14 6A 03 12 A7 DE AB EE 31 2A 76 DE AB EE AA 31 2B
  1249.             16 01 0E 0A 1C 80 53 0E 1A 1B 80 4E DE AA F0 60 31 2B DE AA F1 6E 2A 6B 1D 0E 1E 21 06
  1250.             DE AA F4 60 31 2B DE AA F4 8B 2A 31 67 17 8F 00 24 A7 DE AC F5 31 2A 21 FF A5 90 00 61
  1251.             21 A8 31 2E 16 01 1C 0B 90 00 61 21 A8 E0 60 31 2B 16 01 7F 00 8E 00 5C 61 22 61 23 2F
  1252.             24 16 01 15 19 05 61 22 D5 2F 24 19 05
  1253.            )
  1254.       VENV-SEARCH
  1255.       "~S is neither declared nor bound,~@
  1256.                          it will be treated as if it were declared SPECIAL."
  1257.       C-WARN *COMPILING-FROM-FILE* *UNKNOWN-FREE-VARS* #.#'EQ SPECIAL
  1258.       #S(HASH-TABLE EQ (T . 135.) (LOCAL . 93.) (SPECIAL . 27.)) MAKE-SPECIAL-VAR VAR *FOR-VALUE*
  1259.       3. CONST :VALUE C-CONSTANT-VALUE :FORM MAKE-CONST GETVALUE MK-ANODE NEW-CONST (PUSH)
  1260.       ((SVREF)) GET *VENVC* *STACKZ* 5. *NO-CODE* 6. 10. STACKZ-FUN *FUNC* 9. 11. FNODE C-VAR
  1261.       "INVISIBLE" COMPILER-ERROR
  1262.   )  )
  1263. #Y(#:TOP-LEVEL-FORM-115 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-VARSET
  1264.    REMOVE-OLD-DEFINITIONS
  1265.    #Y(C-VARSET
  1266.       #258Y(02 00 00 00 00 03 A9 2E 00 41 03 8E 02 06 D6 AD 2F 02 C3 F8 9A 25 04 80 E3 00 1A 15 DE
  1267.             B0 2F 02 CA 1A 1B AC 6B 05 DB 5F DC AA DD 8A 2A 6B AF 5C 01 76 DC AA DD 8A 2A 64 E0 B0
  1268.             77 02 5C 01 14 2C 03 0C 19 07 DB 5F 02 76 E2 E3 AC 6B 0F 77 02 E5 E3 AD 6B 0F 77 02 D1
  1269.             78 04 2C 03 0C 19 06 DC AA EA 60 31 2B 0E 16 1C 26 1A 80 8E 16 01 1A 80 74 DB 5F AA 5C
  1270.             01 76 E7 AB 67 13 67 14 77 04 77 01 6A 03 0C DC AA EA 8B 2A 55 0E 16 1B 80 6B DC AA DD
  1271.             5F 31 2B AC 99 76 A7 DC AC EC 31 2A 76 DC AC EC AA 31 2B 16 02 DC AA ED 6E 2A 6B 19 0E
  1272.             1A 21 33 DC AA F0 60 31 2B 67 13 8F 00 22 A7 DC AC F1 31 2A 21 FF A6 90 00 F2 A8 31 2E
  1273.             16 01 1C 0A 90 00 F2 A8 DD 60 31 2B 16 01 7F 00 8E 00 5E F3 F4 2F 20 16 01 61 21 DC AB
  1274.             61 22 6E 2A 37 05 6E 4C DC AB 61 22 AA 31 2B 16 01 15 19 06 F3 D5 2F 20 19 06
  1275.            )
  1276.       VENV-SEARCH
  1277.       "~S is neither declared nor bound,~@
  1278.                          it will be treated as if it were declared SPECIAL."
  1279.       C-WARN SPECIAL #S(HASH-TABLE EQ (T . 89.) (LOCAL . 45.) (SPECIAL . 12.)) MAKE-SPECIAL-VAR
  1280.       VARSET VAR 3.
  1281.       "The constant ~S may not be assigned to.~@
  1282.                                                    The assignment will be ignored."
  1283.       ((VALUES1)) SETVALUE MK-ANODE (PUSH) CONST NEW-CONST (PUSH) ((SVSET)) SET *VENVC* *STACKZ* 5.
  1284.       *NO-CODE* 7. 10. STACKZ-FUN *FUNC* 9. 11. FNODE C-VARSET "INVISIBLE" COMPILER-ERROR
  1285.       #Y(C-VARSET-1 #19Y(01 00 00 00 00 02 90 01 D5 A8 D6 6E 2A 67 02 30 B6 19 03) VAR 10. *STACKZ*
  1286.         )
  1287.       8.
  1288.   )  )
  1289. #Y(#:TOP-LEVEL-FORM-116 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-FUNNAME-CONST
  1290.    REMOVE-OLD-DEFINITIONS
  1291.    #Y(MAKE-FUNNAME-CONST
  1292.       #34Y(01 00 00 00 00 02 99 1F 14 99 57 74 D6 A8 6B 02 D8 D7 D9 AC 77 02 77 02 2C 04 05 19 03
  1293.            A8 2E 00 19 02
  1294.           )
  1295.       NEW-CONST :VALUE GET-SETF-SYMBOL :FORM QUOTE MAKE-CONST
  1296.   )  )
  1297. #Y(#:TOP-LEVEL-FORM-117 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1298.    C-NORMAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
  1299.    #Y(C-NORMAL-FUNCTION-CALL
  1300.       #95Y(01 00 00 00 00 02 67 00 D6 2F 02 0E 00 75 6E 41 0E 03 10 03 0E 00 75 D9 77 01 8F 01 19
  1301.            90 01 7F 02 A7 DA 6C 06 A7 80 02 DC 80 02 D6 0E 03 58 0F 03 16 02 8E 01 67 9D 25 08 09
  1302.            C9 1A 0A CA 1A 07 CB 1A 04 E1 AD 5C 02 14 AF 6B 0D 77 01 6F 02 20 80 00 E1 E3 A9 6E 43
  1303.            2C 03 0F 16 02 11 19 03
  1304.           )
  1305.       *FORM* 1. TEST-LIST *STACKZ* (CALLP) ONE C-FORM (PUSH)
  1306.       #S(HASH-TABLE EQ (2. . 7.) (1. . 4.) (0. . 1.)) (CALL0) (CALL1) (CALL2) CALL
  1307.       MAKE-FUNNAME-CONST (T . T) MK-ANODE
  1308.   )  )
  1309. #Y(#:TOP-LEVEL-FORM-118 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FDESCR-SIGNATURE
  1310.    REMOVE-OLD-DEFINITIONS
  1311.    #Y(FDESCR-SIGNATURE
  1312.       #82Y(01 00 00 00 00 02 99 57 1B 3C 90 01 D7 A8 D8 6E 2A D7 A9 D9 6E 2A D7 AA DA 6E 2A D7 AB
  1313.            DB 6E 2A D7 AC DC 6E 2A D7 AD DD 6E 2A 3F 06 19 03 99 57 57 43 41 0D B3 6E 41 B3 6E 41
  1314.            B1 C1 55 54 14 B1 B1 AE 3F 06 19 0F 99 57 74 23 00 62 99 57 57 43 19 02
  1315.           )
  1316.       LABELS 0. FNODE 10. 11. 12. 13. 14. 15.
  1317.   )  )
  1318. #Y(#:TOP-LEVEL-FORM-119 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TEST-ARGUMENT-SYNTAX
  1319.    REMOVE-OLD-DEFINITIONS
  1320.    #Y(TEST-ARGUMENT-SYNTAX
  1321.       #214Y(09 00 00 00 00 00 B0 8B 08 06 B0 30 9C 57 1C 06 D5 AF B2 2C 03 01 B0 6E 41 AE AE 6F 02
  1322.             33 8E 0A 06 AF A9 8D 01 2F 30 8E 06 09 8E 05 06 A8 A8 8D 01 2F 24 8F 05 35 A8 A8 8C 01
  1323.             2F 32 8E 06 32 A8 A8 7E 01 34 01 A7 B3 7C 9B 0B A8 8A 88 26 DC B1 B4 2C 03 03 00 19 0C
  1324.             D7 B1 AA B4 8E 0A 01 A1 14 B4 AD 6D FE B5 AE 2C 08 03 1A 69 C4 19 0C C5 19 0C C6 19 0C
  1325.             B2 AB 5F 8F 02 80 55 90 02 A7 85 08 0F A7 2E 09 F6 14 8A 7F 20 DF 90 04 B6 2C 03 03 C6
  1326.             19 10 7A 02 8F 02 24 1A 2C E2 A8 B5 B1 6E 41 CE 55 14 B2 2C 05 01 19 0F A7 24 0B 0C 9B
  1327.             57 74 85 08 5D 9B 57 74 84 09 5A 8E 02 0A A7 B0 E1 37 02 88 B3 02 98 F7 16 01 9A 57 57
  1328.             F8 8E 02 FF AB 8E 00 47 C5 19 0F
  1329.            )
  1330.       "argument list to function ~S is dotted: ~S" C-ERROR
  1331.       "~S called with ~S~:[~; or more~] arguments, but it requires ~
  1332.                          ~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
  1333.       C-WARN NO-KEYS STATIC-KEYS DYNAMIC-KEYS
  1334.       "keyword arguments to function ~S should occur pairwise: ~S" C-CONSTANTP C-CONSTANT-VALUE
  1335.       "argument ~S to function ~S is not a keyword" :ALLOW-OTHER-KEYS #.#'EQ
  1336.       "keyword ~S is not allowed for function ~S.~
  1337.                                ~%The only allowed keyword~:[s are ~{~S~#[~; and ~S~:;, ~]~}~; is ~{~S~}~]."
  1338.       1.
  1339.   )  )
  1340. #Y(#:TOP-LEVEL-FORM-120 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1341.    C-DIRECT-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
  1342.    #Y(C-DIRECT-FUNCTION-CALL
  1343.       #995Y(0A 00 00 00 00 00 5F 8F 03 04 A1 25 01 24 C0 1A 22 7A 00 C2 1A 1D C3 1A 1A C4 1A 17 02
  1344.             10 07 00 10 06 B0 35 00 12 02 DD B4 B4 32 02 20 76 2E 09 19 0D C5 14 0E 06 1B 04 98 57
  1345.             1C 60 B3 6E 41 B1 B1 6F 02 33 A9 5F 0E 0A 10 0A E0 AE AE 6F 01 32 1A 80 F2 E7 E8 2F 14
  1346.             8F 0D 80 52 1A 80 4B A8 31 89 1A 0E AC AE 6F 01 34 90 13 E1 6C 09 8E 10 6E 99 14 0E 0A
  1347.             58 0F 0A B7 A9 BA AB 6F 01 32 6A 03 16 AE E2 AA E3 6E 2A 2F 0F FD A8 80 06 AE E2 A9 E3
  1348.             6E 2A 2F 0F FD A7 80 06 16 03 8F 0D 82 CE 1A 81 31 8E 0B FF AD 8F 0D 04 E7 EA 2F 14 AC
  1349.             AE 8C 01 30 FF AF 0E 0A 10 0A BD 8F 00 21 90 00 7F 01 E1 6C 09 B0 E2 A9 E3 6E 2A 2F 0F
  1350.             FF A7 80 08 16 01 EC 80 07 E6 0E 0A 58 0F 0A 8E 00 5F 90 16 E1 6C 09 B0 E2 A9 E3 6E 2A
  1351.             2F 0F FF A7 80 08 16 01 ED B2 B2 6F 01 34 77 02 80 07 16 01 11 03 19 1A 80 9A AC AE 6F
  1352.             01 34 EF A8 77 02 80 04 A7 0E 0A 58 0F 0A 16 01 8F 0E 80 B6 1A 80 40 F1 80 03 03 1D 1A
  1353.             80 78 90 15 7F 16 A7 E1 6C 09 AF E2 A9 E3 6E 2A 2F 0F FE A7 80 07 16 02 E5 80 05 E6 0E
  1354.             0A 58 0F 0A 81 01 A8 A8 8D 01 30 59 16 02 8E 12 FF 51 AC AE 8C 01 2E FF AA 8F 0E 80 73
  1355.             8E 0B 80 4B 8F 13 FF B8 0E 0A 10 0A BD 8F 00 21 90 00 7F 01 E1 6C 09 B0 E2 A9 E3 6E 2A
  1356.             2F 0F FF A7 80 08 16 01 F3 80 07 E6 0E 0A 58 0F 0A 8E 00 5F F4 B2 B2 6F 01 34 77 02 80
  1357.             07 16 01 11 03 20 14 80 03 E6 0E 0A 58 0F 0A 8F 0D 81 C4 1A 28 8F 13 21 90 13 7F 14 E1
  1358.             6C 09 AC E2 A9 E3 6E 2A 2F 0F FB A7 80 04 16 01 F0 80 03 E6 0E 0A 58 0F 0A 8E 13 5F 8F
  1359.             0D 81 9A B3 6E 41 A7 5F B6 1A 13 CC 1A 80 41 90 00 A7 82 04 14 60 77 03 80 02 16 01 7F
  1360.             00 98 20 6E 16 01 A7 30 A3 16 01 F6 5F 8F 16 80 49 90 16 7F 17 6B 21 A7 AA 61 22 37 02
  1361.             6D BA 98 57 57 74 90 19 7F 1A E0 0E 0A 58 10 0A AA 8E 05 FF BC 00 14 6C 09 B6 E2 A9 E3
  1362.             6E 2A 2F 0F 09 0F 60 9F 57 74 A9 67 0A 77 04 80 08 16 01 11 9A 57 75 5F 30 A8 16 04 8E
  1363.             16 FF B7 A7 7D 43 00 E0 E0 5F AA 8F 00 80 5A 90 00 98 56 1C 80 4B 98 57 56 1C 0D 98 57
  1364.             74 AF E6 AE 6F 02 34 8D 01 2B 39 98 57 57 74 AD 1A 0F 16 02 1A 2E A8 99 56 57 57 74 87
  1365.             23 73 7F 00 A7 9C 22 71 16 02 98 57 57 57 74 AC 30 A8 98 57 57 74 80 0B 98 57 56 1C 06
  1366.             61 24 80 0B 81 04 A7 5F 30 A8 16 01 7F 00 8E 00 FF A6 16 01 AA 7D 43 03 14 8F 00 80 59
  1367.             90 00 98 56 1C 80 4A 98 57 56 1C 08 98 57 74 AB 8D 01 2B 3D 98 57 57 74 AD 1A 0F 16 02
  1368.             1A 32 A8 99 56 57 57 74 87 23 73 7F 00 A7 9C 22 71 16 02 98 57 56 1C 06 61 25 80 02 81
  1369.             03 98 57 57 57 74 AF AC 6F 01 34 30 A8 98 57 57 74 80 02 A7 5F 30 A8 16 01 7F 00 8E 00
  1370.             FF A7 16 01 AA 7D 43 03 AC A9 6F 01 34 A7 AB 8D 01 2E 0A EF A8 AC 6F 01 34 77 02 80 0A
  1371.             AB 5F 1A 28 83 01 00 56 1C 20 98 57 57 57 74 AA 30 A8 98 57 57 74 80 0C 98 57 56 1C 0D
  1372.             61 26 99 57 74 AD 6F 01 34 77 02 80 0C 7F 01 A8 89 92 54 16 03 A7 B1 7C A2 09 16 05 A7
  1373.             0E 0A 58 0F 0A 16 01 AA B2 72 00 7C A2 03 11 8F 05 80 5E 61 27 A8 8D 00 26 80 56 5F A8
  1374.             5F 1A 0F 83 01 00 E2 A8 8B 2E 05 A7 6B 28 80 02 7F 01 A8 89 92 6D 16 02 A7 7D 43 00 5F
  1375.             46 29 30 A9 2B 2A 01 10 2B BD A0 36 00 42 11 F9 47 61 2C 5F A9 1A 0D 90 00 61 2D A8 77
  1376.             02 80 02 16 01 7F 00 98 20 70 16 01 A7 30 A3 16 01 76 2E 2E 19 13 1B 5C 16 02 61 2F B6
  1377.             77 02 A9 A9 2C 03 30 19 11
  1378.            )
  1379.       (T . T)
  1380.       #S(HASH-TABLE EQ (LOG10 . 12.) (LOG2 . 12.) (BYTE-POSITION . 12.) (BYTE-SIZE . 12.)
  1381.          (BYTE . 12.) (FLOAT . 12.) (ATANH . 12.) (ACOSH . 12.) (ASINH . 12.) (TANH . 12.)
  1382.          (COSH . 12.) (SINH . 12.) (ATAN . 12.) (ACOS . 12.) (ASIN . 12.) (CIS . 12.) (TAN . 12.)
  1383.          (COS . 12.) (SIN . 12.) (SIGNUM . 12.) (PHASE . 12.) (ABS . 12.) (SQRT . 12.) (LOG . 12.)
  1384.          (EXPT . 12.) (EXP . 12.) (FROUND . 12.) (FTRUNCATE . 12.) (FCEILING . 12.) (FFLOOR . 12.)
  1385.          (GENSYM . 12.) (SPECIAL-VARIABLE-P . 12.) (KEYWORDP . 12.) (SYMBOL-PLIST . 12.)
  1386.          (SYMBOL-PACKAGE . 12.) (GET-PROPERTIES . 12.) (GETF . 12.) (GET . 12.) (FILE-LENGTH . 12.)
  1387.          (STREAM-ELEMENT-TYPE . 12.) (OUTPUT-STREAM-P . 12.) (INPUT-STREAM-P . 12.)
  1388.          (MAKE-BUFFERED-OUTPUT-STREAM . 12.) (MAKE-BUFFERED-INPUT-STREAM . 12.)
  1389.          (MAKE-STRING-PUSH-STREAM . 12.) (MAKE-STRING-OUTPUT-STREAM . 12.)
  1390.          (STRING-INPUT-STREAM-INDEX . 12.) (MAKE-STRING-INPUT-STREAM . 12.)
  1391.          (MAKE-ECHO-STREAM . 12.) (MAKE-TWO-WAY-STREAM . 12.) (MAKE-CONCATENATED-STREAM . 12.)
  1392.          (MAKE-BROADCAST-STREAM . 12.) (MAKE-SYNONYM-STREAM . 12.) (CONCATENATE . 12.)
  1393.          (REVERSE . 12.) (LENGTH . 12.) (COPY-SEQ . 12.) (SUBSEQ . 12.) (ELT . 12.)
  1394.          (SEQUENCEP . 12.) (CLOS:SLOT-EXISTS-P . 12.) (CLOS::ALLOCATE-STD-INSTANCE . 12.)
  1395.          (MAKE-SYMBOL-MACRO . 12.) (%MAKE-CLOSURE . 12.) (MAKE-CODE-VECTOR . 12.)
  1396.          (CLOSURE-CONSTS . 12.) (CLOSURE-CODEVEC . 12.) (CLOSURE-NAME . 12.)
  1397.          (%STRUCTURE-TYPE-P . 12.) (%COPY-STRUCTURE . 12.) (%MAKE-STRUCTURE . 12.)
  1398.          (%STRUCTURE-REF . 12.) (%RECORD-LENGTH . 12.) (%RECORD-REF . 12.) (COERCE . 12.)
  1399.          (CLOS:CLASS-OF . 12.) (CLOS::CLASS-P . 12.) (TYPE-OF . 12.) (COMMONP . 12.)
  1400.          (CLOS::GENERIC-FUNCTION-P . 12.) (FUNCTIONP . 12.) (COMPILED-FUNCTION-P . 12.)
  1401.          (EQUALP . 12.) (EQUAL . 12.) (FILE-AUTHOR . 12.) (FILE-WRITE-DATE . 12.) (DIRECTORY . 12.)
  1402.          (PROBE-FILE . 12.) (TRUENAME . 12.) (NAMESTRING . 12.) (MAKE-PATHNAME . 12.)
  1403.          (ENOUGH-NAMESTRING . 12.) (MERGE-PATHNAMES . 12.) (HOST-NAMESTRING . 12.)
  1404.          (DIRECTORY-NAMESTRING . 12.) (FILE-NAMESTRING . 12.) (PATHNAME-VERSION . 12.)
  1405.          (PATHNAME-TYPE . 12.) (PATHNAME-NAME . 12.) (PATHNAME-DIRECTORY . 12.)
  1406.          (PATHNAME-DEVICE . 12.) (PATHNAME-HOST . 12.) (PATHNAME . 12.) (PARSE-NAMESTRING . 12.)
  1407.          (FIND-ALL-SYMBOLS . 12.) (FIND-SYMBOL . 12.) (LIST-ALL-PACKAGES . 12.)
  1408.          (PACKAGE-SHADOWING-SYMBOLS . 12.) (PACKAGE-USED-BY-LIST . 12.) (PACKAGE-USE-LIST . 12.)
  1409.          (PACKAGE-NICKNAMES . 12.) (PACKAGE-NAME . 12.) (FIND-PACKAGE . 12.) (%%TIME . 12.)
  1410.          (GET-INTERNAL-REAL-TIME . 12.) (GET-INTERNAL-RUN-TIME . 12.) (GET-UNIVERSAL-TIME . 12.)
  1411.          (PAIRLIS . 12.) (TAILP . 12.) (LDIFF . 12.) (BUTLAST . 12.) (REVAPPEND . 12.)
  1412.          (COPY-TREE . 12.) (COPY-ALIST . 12.) (COPY-LIST . 12.) (APPEND . 12.) (LAST . 12.)
  1413.          (NTHCDR . 12.) (REST . 12.) (TENTH . 12.) (NINTH . 12.) (EIGHTH . 12.) (SEVENTH . 12.)
  1414.          (SIXTH . 12.) (FIFTH . 12.) (FOURTH . 12.) (THIRD . 12.) (SECOND . 12.) (FIRST . 12.)
  1415.          (NTH . 12.) (LIST-LENGTH . 12.) (CDDDDR . 12.) (CDDDAR . 12.) (CDDADR . 12.)
  1416.          (CDDAAR . 12.) (CDADDR . 12.) (CDADAR . 12.) (CDAADR . 12.) (CDAAAR . 12.) (CADDDR . 12.)
  1417.          (CADDAR . 12.) (CADADR . 12.) (CADAAR . 12.) (CAADDR . 12.) (CAADAR . 12.) (CAAADR . 12.)
  1418.          (CAAAAR . 12.) (CDDDR . 12.) (CDDAR . 12.) (CDADR . 12.) (CDAAR . 12.) (CADDR . 12.)
  1419.          (CADAR . 12.) (CAADR . 12.) (CAAAR . 12.) (CDDR . 12.) (CDAR . 12.) (CADR . 12.)
  1420.          (CAAR . 12.) (CDR . 12.) (CAR . 12.) (LINE-POSITION . 12.)
  1421.          (GET-DISPATCH-MACRO-CHARACTER . 12.) (GET-MACRO-CHARACTER . 12.) (SXHASH . 12.)
  1422.          (HASH-TABLE-ITERATOR . 12.) (HASH-TABLE-COUNT . 12.) (GETHASH . 12.)
  1423.          (MAKE-HASH-TABLE . 12.) (CONSTANTP . 12.) (MACRO-FUNCTION . 12.) (VALUES-LIST . 12.)
  1424.          (FBOUNDP . 12.) (BOUNDP . 12.) (SYMBOL-FUNCTION . 12.) (SYMBOL-VALUE . 12.)
  1425.          (MAKE-SYMBOL . 12.) (STRING-CONCAT . 12.) (SUBSTRING . 12.) (NAME-CHAR . 12.)
  1426.          (STRING . 12.) (STRING-CAPITALIZE . 12.) (STRING-DOWNCASE . 12.) (STRING-UPCASE . 12.)
  1427.          (STRING-BOTH-TRIM . 12.) (SEARCH-STRING-EQUAL . 12.) (SEARCH-STRING= . 12.)
  1428.          (STRING-NOT-LESSP . 12.) (STRING-NOT-GREATERP . 12.) (STRING-GREATERP . 12.)
  1429.          (STRING-LESSP . 12.) (STRING-NOT-EQUAL . 12.) (STRING-EQUAL . 12.) (STRING>= . 12.)
  1430.          (STRING<= . 12.) (STRING> . 12.) (STRING< . 12.) (STRING/= . 12.) (STRING= . 12.)
  1431.          (SCHAR . 12.) (CHAR . 12.) (CHARACTER . 12.) (MAKE-ARRAY . 12.) (FILL-POINTER . 12.)
  1432.          (ARRAY-HAS-FILL-POINTER-P . 12.) (SBIT . 12.) (BIT . 12.) (ARRAY-ROW-MAJOR-INDEX . 12.)
  1433.          (ARRAY-IN-BOUNDS-P . 12.) (ARRAY-TOTAL-SIZE . 12.) (ARRAY-DIMENSIONS . 12.)
  1434.          (ARRAY-DIMENSION . 12.) (SVREF . 12.) (AREF . 12.) (SUBR-INFO . 12.) (DECIMAL-STRING . 9.)
  1435.          (SYMBOL-NAME . 9.) (MAKE-LOAD-TIME-EVAL . 9.) (SOFTWARE-VERSION . 9.) (SOFTWARE-TYPE . 9.)
  1436.          (LISP-IMPLEMENTATION-VERSION . 9.) (LISP-IMPLEMENTATION-TYPE . 9.) (ACONS . 9.)
  1437.          (MAKE-LIST . 9.) (LIST* . 9.) (LIST . 9.) (CONS . 9.) (VALUES . 9.) (MAKE-STRING . 9.)
  1438.          (VECTOR . 9.) (EXQUO . 4.) (! . 4.) (DEPOSIT-FIELD . 4.) (DPB . 4.) (MASK-FIELD . 4.)
  1439.          (LDB-TEST . 4.) (LDB . 4.) (INTEGER-LENGTH . 4.) (LOGCOUNT . 4.) (ASH . 4.) (LOGBITP . 4.)
  1440.          (LOGTEST . 4.) (LOGNOT . 4.) (BOOLE . 4.) (LOGORC2 . 4.) (LOGORC1 . 4.) (LOGANDC2 . 4.)
  1441.          (LOGANDC1 . 4.) (LOGNOR . 4.) (LOGNAND . 4.) (LOGEQV . 4.) (LOGAND . 4.) (LOGXOR . 4.)
  1442.          (LOGIOR . 4.) (IMAGPART . 4.) (REALPART . 4.) (COMPLEX . 4.) (INTEGER-DECODE-FLOAT . 4.)
  1443.          (FLOAT-PRECISION . 4.) (FLOAT-DIGITS . 4.) (FLOAT-SIGN . 4.) (FLOAT-RADIX . 4.)
  1444.          (SCALE-FLOAT . 4.) (DECODE-FLOAT . 4.) (REM . 4.) (MOD . 4.) (ROUND . 4.) (TRUNCATE . 4.)
  1445.          (CEILING . 4.) (FLOOR . 4.) (DENOMINATOR . 4.) (NUMERATOR . 4.) (RATIONALIZE . 4.)
  1446.          (RATIONAL . 4.) (ISQRT . 4.) (LCM . 4.) (GCD . 4.) (CONJUGATE . 4.) (1- . 4.) (1+ . 4.)
  1447.          (/ . 4.) (* . 4.) (- . 4.) (+ . 4.) (MIN . 4.) (MAX . 4.) (>= . 4.) (<= . 4.) (> . 4.)
  1448.          (< . 4.) (/= . 4.) (= . 4.) (EVENP . 4.) (ODDP . 4.) (MINUSP . 4.) (PLUSP . 4.)
  1449.          (ZEROP . 4.) (CLOS::STD-INSTANCE-P . 4.) (SYMBOL-MACRO-P . 4.) (SIMPLE-BIT-VECTOR-P . 4.)
  1450.          (SIMPLE-STRING-P . 4.) (SIMPLE-VECTOR-P . 4.) (VECTORP . 4.) (BIT-VECTOR-P . 4.)
  1451.          (SIMPLE-ARRAY-P . 4.) (ARRAYP . 4.) (PACKAGEP . 4.) (CHARACTERP . 4.) (PATHNAMEP . 4.)
  1452.          (HASH-TABLE-P . 4.) (READTABLEP . 4.) (RANDOM-STATE-P . 4.) (STREAMP . 4.) (COMPLEXP . 4.)
  1453.          (REALP . 4.) (LONG-FLOAT-P . 4.) (DOUBLE-FLOAT-P . 4.) (SINGLE-FLOAT-P . 4.)
  1454.          (SHORT-FLOAT-P . 4.) (FLOATP . 4.) (RATIONALP . 4.) (FIXNUMP . 4.) (INTEGERP . 4.)
  1455.          (LISTP . 4.) (CLOSUREP . 4.) (NOT . 4.) (NULL . 4.) (NUMBERP . 4.) (STRINGP . 4.)
  1456.          (SYMBOLP . 4.) (ATOM . 4.) (CONSP . 4.) (EQL . 4.) (EQ . 4.) (IDENTITY . 4.) (ENDP . 4.)
  1457.          (SPECIAL-FORM-P . 4.) (CHAR-BIT . 4.) (CHAR-NAME . 4.) (INT-CHAR . 4.) (CHAR-INT . 4.)
  1458.          (DIGIT-CHAR . 4.) (CHAR-DOWNCASE . 4.) (CHAR-UPCASE . 4.) (MAKE-CHAR . 4.)
  1459.          (CODE-CHAR . 4.) (CHAR-FONT . 4.) (CHAR-BITS . 4.) (CHAR-CODE . 4.) (CHAR-NOT-LESSP . 4.)
  1460.          (CHAR-NOT-GREATERP . 4.) (CHAR-GREATERP . 4.) (CHAR-LESSP . 4.) (CHAR-NOT-EQUAL . 4.)
  1461.          (CHAR-EQUAL . 4.) (CHAR>= . 4.) (CHAR<= . 4.) (CHAR> . 4.) (CHAR< . 4.) (CHAR/= . 4.)
  1462.          (CHAR= . 4.) (ALPHANUMERICP . 4.) (DIGIT-CHAR-P . 4.) (BOTH-CASE-P . 4.)
  1463.          (LOWER-CASE-P . 4.) (UPPER-CASE-P . 4.) (ALPHA-CHAR-P . 4.) (STRING-CHAR-P . 4.)
  1464.          (GRAPHIC-CHAR-P . 4.) (STANDARD-CHAR-P . 4.) (ADJUSTABLE-ARRAY-P . 4.) (ARRAY-RANK . 4.)
  1465.          (ARRAY-ELEMENT-TYPE . 4.) (%FUNTABREF . 4.)
  1466.         )
  1467.       (NIL) (NIL) (T) (T . T) *FOR-VALUE* *NO-CODE* PROGN C-FORM *STACKZ* 0. ONE ANODE 2.
  1468.       SECLASS-OR-2 (PUSH) 1. C-DIRECT-FUNCTION-CALL "APPLY-SUBR" COMPILER-ERROR "APPLY-KEY"
  1469.       C-UNLIST (PUSH) LIST* (PUSH) PUSH-UNBOUND (PUSH) (NIL) (PUSH) (PUSH) LIST (PUSH)
  1470.       C-CONSTANT-VALUE #.#'EQ ANODES-COMMUTE (PUSH) (PUSH) STORE
  1471.       #Y(C-DIRECT-FUNCTION-CALL-1 #20Y(01 00 00 00 00 02 D5 A9 31 2E 54 1D 05 A8 2E 01 19 02 19 02)
  1472.          ANODE ANODE-CONSTANTP
  1473.         )
  1474.       ANODE-CONSTANT-VALUE TRY-EVAL
  1475.       #Y(C-DIRECT-FUNCTION-CALL-2 #9Y(00 00 00 00 01 16 00 48 00) NIL) *ERROR-HANDLER* VALUES QUOTE
  1476.       C-GLOBAL-FUNCTION-CALL-FORM DIRECT-CALL MK-ANODE
  1477.   )  )
  1478. #Y(#:TOP-LEVEL-FORM-121 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-UNLIST
  1479.    REMOVE-OLD-DEFINITIONS
  1480.    #Y(C-UNLIST
  1481.       #39Y(03 00 00 00 00 04 8E 03 15 DB DC C6 14 AC AC 77 03 5C 01 14 2C 03 04 19 04 D6 D7 C3 1A
  1482.            75 A9 23 00 77 D6 DA C1 1A 65
  1483.           )
  1484.       0. UNLIST* (NIL) ((PUSH)) MK-ANODE (T . T) UNLIST (T . T)
  1485.   )  )
  1486. #Y(#:TOP-LEVEL-FORM-122 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1487.    CCLOSURE-CALL-CODE-PRODUCER REMOVE-OLD-DEFINITIONS
  1488.    #Y(CCLOSURE-CALL-CODE-PRODUCER
  1489.       #63Y(07 00 00 00 00 00 00 2A 02 7B 08 00 00 7B 03 00 01 AE 0E 00 21 09 A7 2B 06 01 19 09 C2
  1490.            1A 0A 98 2A 01 D6 AF AF 8E 08 74 C3 14 AE 6E 41 6F 04 33 67 04 77 03 5C 01 0B 00 00 A7
  1491.            2B 05 01 19 0A
  1492.           )
  1493.       *FUNC* JSR 1. 0. *FUNC-START-LABEL*
  1494.       #Y(CCLOSURE-CALL-CODE-PRODUCER-1 #11Y(00 00 00 00 00 01 07 00 01 19 01) NIL)
  1495.       #Y(CCLOSURE-CALL-CODE-PRODUCER-2
  1496.          #29Y(00 00 00 00 00 01 D6 65 00 01 77 02 D7 6C 03 07 00 02 1B 06 C5 14 5C 02 19 01 C4 1A
  1497.               78
  1498.              )
  1499.          NIL FUNCTION ONE C-FORM (CALLCKEY) (CALLC)
  1500.   )  )  )
  1501. #Y(#:TOP-LEVEL-FORM-123 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1502.    C-GLOBAL-FUNCTION-CALL-FORM REMOVE-OLD-DEFINITIONS
  1503.    #Y(C-GLOBAL-FUNCTION-CALL-FORM #17Y(01 00 00 00 00 02 99 10 00 0E 00 74 2E 01 11 19 02) *FORM*
  1504.       C-GLOBAL-FUNCTION-CALL
  1505.   )  )
  1506. #Y(#:TOP-LEVEL-FORM-124 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1507.    C-GLOBAL-FUNCTION-CALL REMOVE-OLD-DEFINITIONS
  1508.    #Y(C-GLOBAL-FUNCTION-CALL
  1509.       #837Y(01 00 00 00 00 02 67 00 D6 2F 02 0E 03 1C 82 EB A8 88 51 13 A8 67 04 DA 37 02 88 B3 0A
  1510.             A8 67 06 DA 37 02 30 B7 0F 06 A8 24 07 13 67 00 6E 41 DD 8D 01 2B 0A 0E 00 57 74 A7 84
  1511.             09 27 16 01 A8 23 10 05 A8 24 11 80 52 95 09 0E 00 75 8D 00 26 80 48 DF E7 AA 23 10 1F
  1512.             AA 23 11 1E 00 14 5F 0E 00 75 1A 27 DF E0 E1 E2 AB 6B 0E 77 02 77 02 77 03 2E 0F 16 01
  1513.             1A 48 D3 1A 63 D4 1A 60 90 00 E2 A8 6B 0E 77 02 80 02 16 01 7F 00 98 20 6F 16 01 A7 30
  1514.             A3 16 01 76 77 03 2E 0F 99 25 15 82 5D 95 09 0E 00 75 8D 00 26 82 53 A8 5F 0E 00 75 1A
  1515.             82 3B A1 25 18 81 F8 A1 25 19 10 03 1A 1A 0E 03 1B 1A 0A 03 1E 1A 21 2D 22 19 0B 03 1C
  1516.             14 0E 1D 1B 04 98 57 1C 6D B1 24 1F 15 67 1D 24 20 10 AE 61 21 8C 01 2B 61 03 23 14 A1
  1517.             76 2E 0F 19 0B A7 5F 0E 24 10 24 8F 0D 2B 1A 0D 61 27 80 03 D6 0E 24 58 0F 24 8F 0D 1C
  1518.             90 0D 7F 0E F5 6C 0F AC 61 25 A9 DD 6E 2A 2F 26 FB A7 80 04 16 01 8E 0D 5A 8E 0D 64 AA
  1519.             04 10 25 28 81 0A 03 29 1A 81 09 03 2A 1A 81 04 03 2B 1A 80 FF 03 2C 1A 80 FA 03 2D 1A
  1520.             80 F5 03 2E 1A 80 F0 03 2F 1A 80 EB 03 30 1A 80 E6 03 31 1A 80 E1 03 32 1A 80 DC 03 33
  1521.             1A 80 D7 03 34 1A 80 D2 03 35 1A 80 CD 03 36 1A 80 C8 03 37 1A 80 C3 03 38 1A 80 BE 03
  1522.             39 1A 80 B9 03 3A 1A 80 B4 03 3B 1A 80 AF 03 3C 1A 80 AA 03 3D 1A 80 A5 03 3E 1A 80 A0
  1523.             03 3F 1A 80 9B 03 40 1A 80 96 03 41 1A 80 91 03 42 1A 80 8C 03 43 1A 80 87 03 44 1A 80
  1524.             82 03 45 1A 80 7D 03 46 1A 80 78 03 47 1A 80 73 03 48 1A 80 6E 03 49 1A 80 69 03 4A 1A
  1525.             80 64 03 4B 1A 80 5F 03 4C 1A 80 5A 03 4D 1A 80 55 03 4E 1A 80 50 03 4F 1A 80 4B B4 23
  1526.             21 72 B4 23 01 73 61 50 03 51 1A 10 03 52 1A 39 03 53 1A 35 B4 8B 85 09 61 54 03 55 14
  1527.             04 0F 1A 1D 03 56 1A 24 03 57 1A 20 B4 23 01 78 61 58 93 0E 77 02 5C 01 1A 12 61 59 61
  1528.             5A B6 31 8A 14 77 02 5C 02 1A 04 61 5B 2E 5C 14 7C A2 03 11 61 5D B4 77 02 A9 A9 2C 03
  1529.             5E 19 0D AB AE 8D 01 2F 0F 8E 02 FE 64 AD AC AC 6F 02 33 8C 01 2F FE 59 61 5F B1 AF AC
  1530.             AE 03 21 55 14 B0 B1 B1 6F 02 33 2C 07 60 B0 2E 61 19 0A B2 2E 66 1A 24 B0 5F B4 B0 B0
  1531.             B0 B0 B1 60 00 2A 01 8F 0E 6C 61 67 61 21 BB BA BA 6F 02 34 6F 01 31 B4 67 68 6F 01 34
  1532.             5C 03 14 5C 01 0B 00 00 A7 2B 69 01 F6 2C 0A 6A 19 0C B0 67 62 37 01 6D 64 8F 00 80 83
  1533.             AF 5F B3 AF AF AF AF B0 B0 6A 09 63 A7 23 64 FF B0 A7 23 65 FF AB B2 2E 61 19 0C B1 B0
  1534.             5F AA 5F 2C 05 71 19 0B 90 00 E2 A8 6B 0E 77 02 80 02 16 01 7F 00 98 20 6F 16 01 A7 30
  1535.             A3 16 01 76 0E 16 58 0F 16 0E 00 75 A7 6E 41 AA 84 17 3B AA 30 01 41 06 8F 05 05 B0 9E
  1536.             21 FD 9E 0E 03 1C 0B B0 67 6B DA 37 02 30 BA 57 1B 09 B0 6B 6C 61 6D 37 01 31 76 14 98
  1537.             1F 0D 61 6E 61 6F 9A 76 77 02 AF 86 70 FF 98 B1 2E 61 19 0B AA 2E 61 19 04
  1538.            )
  1539.       *FORM* 1. TEST-LIST *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL *UNKNOWN-FUNCTIONS*
  1540.       PROCLAIM 2. C-CONSTANTP EVAL-WHEN (COMPILE) C-PROCLAIM QUOTE C-CONSTANT-VALUE C-FORM PROVIDE
  1541.       REQUIRE (COMPILE) C-PROVIDE C-REQUIRE
  1542.       #S(HASH-TABLE EQ (IMPORT . 2.) (UNUSE-PACKAGE . 2.) (USE-PACKAGE . 2.) (UNEXPORT . 2.)
  1543.          (EXPORT . 2.) (SHADOWING-IMPORT . 2.) (SHADOW . 2.) (IN-PACKAGE . 2.) (MAKE-PACKAGE . 2.)
  1544.         )
  1545.       *PACKAGE-TASKS* DECLARED-NOTINLINE
  1546.       #S(HASH-TABLE EQ (ERROR . 404.) (LIST* . 404.) (LIST . 404.) (SYMBOL-FUNCTION . 404.)
  1547.          (EQ . 404.) (%SVSTORE . 404.) (VALUES-LIST . 404.) (CONSP . 404.) (ATOM . 404.)
  1548.          (CDDDDR . 404.) (CDDDAR . 404.) (CDDADR . 404.) (CDDAAR . 404.) (CDADDR . 404.)
  1549.          (CDADAR . 404.) (CDAADR . 404.) (CDAAAR . 404.) (CADDDR . 404.) (CADDAR . 404.)
  1550.          (CADADR . 404.) (CADAAR . 404.) (CAADDR . 404.) (CAADAR . 404.) (CAAADR . 404.)
  1551.          (CAAAAR . 404.) (FOURTH . 404.) (THIRD . 404.) (SECOND . 404.) (CDDDR . 404.)
  1552.          (CDDAR . 404.) (CDADR . 404.) (CDAAR . 404.) (CADDR . 404.) (CADAR . 404.) (CAADR . 404.)
  1553.          (CAAAR . 404.) (CDDR . 404.) (CDAR . 404.) (CADR . 404.) (CAAR . 404.) (VALUES . 404.)
  1554.          (SVREF . 404.) (CONS . 404.) (NULL . 404.) (NOT . 404.) (REST . 404.) (FIRST . 404.)
  1555.          (CDR . 404.) (CAR . 404.)
  1556.         )
  1557.       #S(HASH-TABLE EQ (SYMBOL-FUNCTION . 5.) (SVREF . 5.) (VALUES-LIST . 5.) (CDDDDR . 5.)
  1558.          (CDDDAR . 5.) (CDDADR . 5.) (CDDAAR . 5.) (CDADDR . 5.) (CDADAR . 5.) (CDAADR . 5.)
  1559.          (CDAAAR . 5.) (CADDDR . 5.) (CADDAR . 5.) (CADADR . 5.) (CADAAR . 5.) (CAADDR . 5.)
  1560.          (CAADAR . 5.) (CAAADR . 5.) (CAAAAR . 5.) (FOURTH . 5.) (THIRD . 5.) (SECOND . 5.)
  1561.          (CDDDR . 5.) (CDDAR . 5.) (CDADR . 5.) (CDAAR . 5.) (CADDR . 5.) (CADAR . 5.) (CAADR . 5.)
  1562.          (CAAAR . 5.) (CDDR . 5.) (CDAR . 5.) (CADR . 5.) (CAAR . 5.) (REST . 5.) (FIRST . 5.)
  1563.          (CDR . 5.) (CAR . 5.) (LIST* . 1.) (LIST . 1.) (EQ . 1.) (CONSP . 1.) (ATOM . 1.)
  1564.          (VALUES . 1.) (CONS . 1.) (NULL . 1.) (NOT . 1.)
  1565.         )
  1566.       (NIL) (T) (T . T) *FOR-VALUE* PROGN VALUES ONE 0. C-NIL PROG1 *STACKZ* ANODE SECLASS-OR-2
  1567.       (PUSH)
  1568.       #S(HASH-TABLE EQ (ERROR . 254.) (LIST* . 240.) (LIST . 219.) (SYMBOL-FUNCTION . 215.)
  1569.          (VALUES-LIST . 211.) (VALUES . 197.) (EQ . 182.) (%SVSTORE . 177.) (SVREF . 172.)
  1570.          (CONS . 167.) (NULL . 162.) (NOT . 162.) (CONSP . 157.) (ATOM . 152.) (CDDDDR . 147.)
  1571.          (CDDDAR . 142.) (CDDADR . 137.) (CDDAAR . 132.) (CDADDR . 127.) (CDADAR . 122.)
  1572.          (CDAADR . 117.) (CDAAAR . 112.) (FOURTH . 107.) (CADDDR . 107.) (CADDAR . 102.)
  1573.          (CADADR . 97.) (CADAAR . 92.) (CAADDR . 87.) (CAADAR . 82.) (CAAADR . 77.) (CAAAAR . 72.)
  1574.          (CDDDR . 67.) (CDDAR . 62.) (CDADR . 57.) (CDAAR . 52.) (THIRD . 47.) (CADDR . 47.)
  1575.          (CADAR . 42.) (CAADR . 37.) (CAAAR . 32.) (CDDR . 27.) (CDAR . 22.) (SECOND . 17.)
  1576.          (CADR . 17.) (CAAR . 12.) (REST . 7.) (CDR . 7.) (FIRST . 2.) (CAR . 2.)
  1577.         )
  1578.       ((CAR)) ((CDR)) ((CAR) (CAR)) ((CDR) (CAR)) ((CAR) (CDR)) ((CDR) (CDR)) ((CAR) (CAR) (CAR))
  1579.       ((CDR) (CAR) (CAR)) ((CAR) (CDR) (CAR)) ((CDR) (CDR) (CAR)) ((CAR) (CAR) (CDR))
  1580.       ((CDR) (CAR) (CDR)) ((CAR) (CDR) (CDR)) ((CDR) (CDR) (CDR)) ((CAR) (CAR) (CAR) (CAR))
  1581.       ((CDR) (CAR) (CAR) (CAR)) ((CAR) (CDR) (CAR) (CAR)) ((CDR) (CDR) (CAR) (CAR))
  1582.       ((CAR) (CAR) (CDR) (CAR)) ((CDR) (CAR) (CDR) (CAR)) ((CAR) (CDR) (CDR) (CAR))
  1583.       ((CDR) (CDR) (CDR) (CAR)) ((CAR) (CAR) (CAR) (CDR)) ((CDR) (CAR) (CAR) (CDR))
  1584.       ((CAR) (CDR) (CAR) (CDR)) ((CDR) (CDR) (CAR) (CDR)) ((CAR) (CAR) (CDR) (CDR))
  1585.       ((CDR) (CAR) (CDR) (CDR)) ((CAR) (CDR) (CDR) (CDR)) ((CDR) (CDR) (CDR) (CDR)) ((ATOM))
  1586.       ((CONSP)) ((NOT)) ((CONS)) ((SVREF)) ((SVSET)) ((EQ)) ((VALUES0)) ((VALUES1)) (PUSH)
  1587.       STACK-TO-MV ((LIST-TO-MV)) ((SYMBOL-FUNCTION)) (PUSH) LIST ((NIL)) ((VALUES1)) LIST* (PUSH)
  1588.       ERROR C-GLOBAL-FUNCTION-CALL COMPILER-ERROR PRIMOP MK-ANODE
  1589.       "~S called with ~S arguments, but it requires ~
  1590.                                     ~:[~:[from ~S to ~S~;~S~]~;at least ~*~S~] arguments."
  1591.       C-WARN C-NORMAL-FUNCTION-CALL FUNCTION-CODES TEST-ARGUMENT-SYNTAX NO-KEYS STATIC-KEYS
  1592.       CALLS-CODE CALLSR FUNTABR-INDEX
  1593.       #Y(C-GLOBAL-FUNCTION-CALL-1 #11Y(00 00 00 00 00 01 07 00 01 19 01) NIL)
  1594.       C-DIRECT-FUNCTION-CALL *INLINE-DEFINITIONS* GET-FUNNAME-SYMBOL INLINE-EXPANSION FUNCTION
  1595.       LAMBDA INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE
  1596.   )  )
  1597. #Y(#:TOP-LEVEL-FORM-125 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROCLAIM
  1598.    REMOVE-OLD-DEFINITIONS
  1599.    #Y(C-PROCLAIM
  1600.       #156Y(01 00 00 00 00 02 99 20 03 00 19 02 99 56 25 00 78 91 01 5F A8 88 92 80 80 83 01 00 14
  1601.             8B 03 0A A7 67 01 D7 37 02 30 B7 0F 01 7F 01 1A 66 91 01 5F A8 88 92 80 63 83 01 00 14
  1602.             85 03 15 A7 67 04 DA 37 02 30 B7 0F 04 A7 67 06 37 07 C5 F8 31 4B 0F 06 7F 01 1A 5B 91
  1603.             01 5F A8 88 92 3C 83 01 00 14 85 03 15 A7 67 06 DA 37 02 30 B7 0F 06 A7 67 04 37 07 C5
  1604.             F8 31 4B 0F 04 7F 01 1A 5C 91 01 5F 1A 13 83 01 00 14 8B 03 0A A7 67 07 D7 37 02 30 B7
  1605.             0F 07 7F 01 A8 89 92 69 00 19 04
  1606.            )
  1607.       #S(HASH-TABLE EQ (DECLARATION . 109.) (NOTINLINE . 70.) (INLINE . 30.) (SPECIAL . 1.))
  1608.       *KNOWN-SPECIAL-VARS* #.#'EQ FUNCTION-NAME-P *INLINE-FUNCTIONS* #.#'EQUAL
  1609.       *NOTINLINE-FUNCTIONS* *USER-DECLARATION-TYPES*
  1610.   )  )
  1611. #Y(#:TOP-LEVEL-FORM-126 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROCLAIM-CONSTANT
  1612.    REMOVE-OLD-DEFINITIONS
  1613.    #Y(C-PROCLAIM-CONSTANT
  1614.       #39Y(02 00 00 00 00 03 0E 00 1C 0E A9 67 01 D7 37 02 30 B7 0F 01 A8 84 03 03 00 19 03 A9 A9
  1615.            2E 04 76 0E 05 58 0F 05 19 03
  1616.           )
  1617.       *COMPILING-FROM-FILE* *KNOWN-SPECIAL-VARS* #.#'EQ C-CONSTANTP C-CONSTANT-VALUE
  1618.       *CONSTANT-SPECIAL-VARS*
  1619.   )  )
  1620. #Y(#:TOP-LEVEL-FORM-127 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-DEFUN
  1621.    REMOVE-OLD-DEFINITIONS
  1622.    #Y(C-DEFUN
  1623.       #51Y(01 00 01 00 00 08 3A 01 12 79 01 0E 00 1C 21 1A 0E A9 9A 76 0E 04 58 0F 04 19 03 0E 00
  1624.            1C 11 0E 01 1C 0D A9 67 02 D8 37 02 30 B7 0F 02 8E 01 61 00 19 03
  1625.           )
  1626.       *COMPILING* *COMPILING-FROM-FILE* *KNOWN-FUNCTIONS* #.#'EQUAL *INLINE-DEFINITIONS*
  1627.   )  )
  1628. #Y(#:TOP-LEVEL-FORM-128 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROVIDE
  1629.    REMOVE-OLD-DEFINITIONS
  1630.    #Y(C-PROVIDE #20Y(01 00 00 00 00 02 A8 6D 4C 67 00 D6 37 02 30 B7 0F 00 19 02)
  1631.       *COMPILED-MODULES* #.#'STRING=
  1632.   )  )
  1633. #Y(#:TOP-LEVEL-FORM-129 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-REQUIRE
  1634.    REMOVE-OLD-DEFINITIONS
  1635.    #Y(C-REQUIRE
  1636.       #47Y(01 00 01 00 00 08 3B 01 14 3C 02 AA 6D 4C 67 00 D6 37 02 88 B3 11 8E 00 04 AA 7C E4 02
  1637.            9A 1F 0A D7 AA 32 00 17 19 04 00 19 04 A9 C2 33 19 04
  1638.           )
  1639.       *COMPILED-MODULES* #.#'STRING-EQUAL
  1640.       #Y(C-REQUIRE-LOAD-LIB
  1641.          #45Y(01 00 00 00 00 02 A8 D5 6C 01 90 00 99 1F 09 A7 6D E9 D7 37 04 88 36 09 8E 00 01 9B
  1642.               14 2E 07 19 04 A7 D8 5F D9 5F DA 5F 2C 07 06 19 04
  1643.              )
  1644.          (#".lsp" #".lib") SEARCH-FILE #.(PATHNAME-TYPE '#".lib") :VERBOSE :PRINT :ECHO LOAD
  1645.          COMPILE-FILE
  1646.   )  )  )
  1647. #Y(#:TOP-LEVEL-FORM-130 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANALYZE-LETLIST
  1648.    REMOVE-OLD-DEFINITIONS
  1649.    #Y(ANALYZE-LETLIST
  1650.       #83Y(01 00 00 00 00 02 A8 01 02 8F 02 3D 90 02 8A 03 23 9A 56 1F 26 9A 56 74 8B 03 20 9A 56
  1651.            57 1F 1B 9A 56 57 57 1B 15 9A 56 74 80 01 9A 56 57 56 14 80 00 1A 10 90 02 80 01 00 1A
  1652.            74 C0 4D 06 D6 90 06 2F 00 4E 7F 02 8E 02 43 A8 6E 43 A8 6E 43 3F 02 19 05
  1653.           )
  1654.       C-ERROR "Illegal syntax in LET/LET*: ~S"
  1655.   )  )
  1656. #Y(#:TOP-LEVEL-FORM-131 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ANALYZE-LAMBDALIST
  1657.    REMOVE-OLD-DEFINITIONS
  1658.    #Y(ANALYZE-LAMBDALIST
  1659.       #700Y(01 00 00 00 00 02 A8 01 04 D5 01 08 A5 1F 28 90 0D A7 8A 03 09 A7 2E 05 16 01 7F 0D 1A
  1660.             6E 98 25 01 0E 98 25 02 00 C3 4D 6F D9 AB 2F 03 4E 1A 68 A7 80 0D 1A 63 16 01 A5 1F 80
  1661.             AE 90 0D 24 06 80 A8 1A 16 98 25 07 04 98 25 08 03 98 1A 27 C3 4D 80 6E D9 AB 2F 03 4E
  1662.             16 01 7F 0D A5 1F 80 8A 90 0D A7 8A 03 5E 98 1F 80 4F 90 00 8B 03 80 49 98 57 1B 08 98
  1663.             56 14 80 0C 00 1A 10 98 57 1F 39 98 57 57 1B 0D 90 00 80 0C 98 57 56 14 80 0B C0 1A 1F
  1664.             98 57 57 1F 22 98 57 57 74 8B 03 1B 98 57 57 57 1B 15 90 00 80 0C 98 57 74 80 0B 98 57
  1665.             57 56 14 80 0A 16 01 1A FF A1 A7 2E 05 16 01 1A FF 99 16 01 1A FF 94 C3 4D 3A DF BA 2F
  1666.             03 4E 1A 33 98 25 0B 10 C3 4D 09 DF BB 2F 03 4E 16 01 1A 23 16 01 1A 1F 98 FF 1A 17 16
  1667.             01 A5 1F 16 90 0D 24 09 11 7F 0D 1F 50 90 0D A7 8A 03 54 A7 2E 05 7F 0E 16 01 A5 1F 80
  1668.             7F 90 0D 98 25 0C 06 C3 4D 0C C4 1A 04 C3 4D 06 CF 14 AB 2F 03 4E 16 01 7F 0D 1A 61 98
  1669.             25 10 3F C3 4D 80 BF D9 AB 2F 03 4E 1A 80 B7 98 56 74 80 07 98 56 57 1A 15 98 57 57 56
  1670.             1A 33 98 56 20 6C 90 00 6E 7E 67 12 6D D3 80 07 98 74 80 06 98 57 1F 19 98 57 74 80 05
  1671.             98 57 57 20 5A C0 1A 10 A7 6E 7E 67 12 6D D3 80 07 A7 80 06 5F 80 05 C0 14 80 04 1A 80
  1672.             6E A7 23 0D 05 A7 24 0E FF 89 16 01 A5 1F 80 81 90 0D 24 0D 80 7B 7F 0D 7A 07 A5 1F 80
  1673.             63 90 0D A7 8A 03 FF 83 98 1F 80 43 90 00 8A 03 1C 98 56 1F 3A 98 56 74 8B 7F 34 98 56
  1674.             57 1F 2F 98 56 57 74 8B 03 28 98 56 57 57 1B 22 98 57 1C FF 79 98 57 1F 19 98 57 57 1C
  1675.             FF 6F 98 57 57 1F 0E 98 57 57 74 8B 03 07 98 57 57 57 1C FF 5C A7 2E 05 16 01 7F 0D 1A
  1676.             FF A4 A7 23 11 05 A7 24 0E FF 2D 16 01 A5 1F 0D 90 0D 24 11 08 7A 02 1A 02 16 01 7F 0D
  1677.             A5 1F 80 75 90 0D 98 25 13 06 C3 4D 6F C4 1A 04 C3 4D 69 CF 14 AB 2F 03 4E 16 01 1A 61
  1678.             98 25 14 00 98 1A 25 C3 4D 80 45 D9 AB 2F 03 4E 16 01 7F 0D A5 1F 80 4D 90 0D A7 8A 03
  1679.             62 98 1F 28 90 00 8B 03 23 98 57 1B 08 98 56 14 80 02 00 1A 10 98 57 1F 13 98 57 57 1B
  1680.             0E 90 00 80 02 98 57 56 14 80 01 16 01 1A 49 A7 2E 05 16 01 1A 42 16 01 1A FF BD A7 24
  1681.             0E FF 93 16 01 A5 1F 06 90 0D 23 0E FF AD 8F 0D 08 C3 4D 05 EA BA 2F 03 4E B3 6E 43 B3
  1682.             6E 43 B3 6E 43 B3 6E 43 B3 B3 B3 6E 43 B3 6E 43 B3 6E 43 B3 6E 43 B3 B3 6E 43 B3 6E 43
  1683.             3F 0D 19 10
  1684.            )
  1685.       0.
  1686.       #S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.) (&AUX . 1.)
  1687.          (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.) (&OPTIONAL . 1.)
  1688.         )
  1689.       #S(HASH-TABLE EQ (&AUX . 16.) (&KEY . 16.) (&REST . 16.) (&OPTIONAL . 16.)) C-ERROR
  1690.       "Lambda list marker ~S not allowed here." LAMBDALIST-ERROR &OPTIONAL
  1691.       #S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.) (&AUX . 1.)
  1692.          (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.) (&OPTIONAL . 1.)
  1693.         )
  1694.       #S(HASH-TABLE EQ (&AUX . 157.) (&KEY . 157.) (&REST . 157.)) &REST
  1695.       "Missing &REST parameter in lambda list ~S"
  1696.       #S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.) (&AUX . 1.)
  1697.          (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.) (&OPTIONAL . 1.)
  1698.         )
  1699.       #S(HASH-TABLE EQ (&ENVIRONMENT . 111.) (&WHOLE . 111.) (&BODY . 111.) (&AUX . 111.)
  1700.          (&ALLOW-OTHER-KEYS . 111.) (&KEY . 111.) (&REST . 111.) (&OPTIONAL . 111.)
  1701.         )
  1702.       &KEY &AUX "Lambda list element ~S is superfluous."
  1703.       #S(HASH-TABLE EQ (&ENVIRONMENT . 203.) (&WHOLE . 203.) (&BODY . 203.) (&AUX . 203.)
  1704.          (&ALLOW-OTHER-KEYS . 203.) (&KEY . 203.) (&REST . 203.) (&OPTIONAL . 203.)
  1705.         )
  1706.       &ALLOW-OTHER-KEYS *KEYWORD-PACKAGE*
  1707.       #S(HASH-TABLE EQ (&ENVIRONMENT . 105.) (&WHOLE . 105.) (&BODY . 105.) (&AUX . 105.)
  1708.          (&ALLOW-OTHER-KEYS . 105.) (&KEY . 105.) (&REST . 105.) (&OPTIONAL . 105.)
  1709.         )
  1710.       #S(HASH-TABLE EQ (&ENVIRONMENT . 4.) (&WHOLE . 4.) (&BODY . 4.) (&AUX . 4.)
  1711.          (&ALLOW-OTHER-KEYS . 4.) (&KEY . 4.) (&REST . 4.) (&OPTIONAL . 4.)
  1712.         )
  1713.       "Lambda lists with dots are only allowed in macros, not here: ~S"
  1714.   )  )
  1715. #Y(#:TOP-LEVEL-FORM-132 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) LAMBDALIST-ERROR
  1716.    REMOVE-OLD-DEFINITIONS
  1717.    #Y(LAMBDALIST-ERROR #18Y(01 00 00 00 00 02 C0 4D 07 D6 AC 2F 00 4E 19 02 19 02) C-ERROR
  1718.       "Illegal lambda list element ~S"
  1719.   )  )
  1720. #Y(#:TOP-LEVEL-FORM-133 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1721.    INLINE-CALLABLE-FUNCTION-P REMOVE-OLD-DEFINITIONS
  1722.    #Y(INLINE-CALLABLE-FUNCTION-P
  1723.       #173Y(02 00 01 00 00 09 3C 01 AA 31 01 1E 80 9D 90 03 C0 55 1E 80 96 91 03 31 01 1E 80 8F 9B
  1724.             57 57 54 1E 80 88 9B 57 74 A7 31 01 1E 80 7D 90 00 C1 55 1E 80 76 91 00 31 01 1E 80 6F
  1725.             98 57 74 A7 31 08 1E 80 64 D7 A8 37 06 31 59 54 1E 80 5A D8 A8 37 06 31 59 54 1E 80 50
  1726.             D9 A8 37 06 6E 59 DA A9 37 06 6E 59 DB AA 37 06 8A 59 03 A9 31 41 14 8E 01 0D 8E 06 1D
  1727.             8E 02 25 AE A8 32 01 2B 19 09 9E 1D 24 AE 8E 03 01 9A 14 32 01 30 19 09 A8 31 8A 1A 05
  1728.             AE 8E 03 77 99 14 32 01 2F 19 09 14 AF 93 02 32 02 2F 19 09 19 09 19 06 19 05 19 04
  1729.            )
  1730.       FUNCTION LAMBDA &KEY &ALLOW-OTHER-KEYS &OPTIONAL &REST &AUX
  1731.   )  )
  1732. #Y(#:TOP-LEVEL-FORM-134 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *SPECIALS*) *SPECIALS*)
  1733. #Y(#:TOP-LEVEL-FORM-135 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *IGNORES*) *IGNORES*)
  1734. #Y(#:TOP-LEVEL-FORM-136 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *IGNORABLES*)
  1735.    *IGNORABLES*
  1736.   )
  1737. #Y(#:TOP-LEVEL-FORM-137 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PUSH-SPECIALS
  1738.    REMOVE-OLD-DEFINITIONS
  1739.    #Y(PUSH-SPECIALS #18Y(00 00 00 00 00 01 95 00 95 01 67 02 32 00 17 97 00 01) PUSH-*VENV*
  1740.       MAKE-SPECIAL-VAR *SPECIALS*
  1741.   )  )
  1742. #Y(#:TOP-LEVEL-FORM-138 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) IGNORE-CHECK
  1743.    REMOVE-OLD-DEFINITIONS
  1744.    #Y(IGNORE-CHECK
  1745.       #73Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 67 02 D8 37 02 88 B3 26 A7 67 09 D8 37 02 88 B3 29
  1746.            D5 AA D9 8A 2A 23 D5 AA DC 8A 2A 1D A7 8B 7C 19 CA 14 A8 2F 06 19 03 C5 1A 77 C8 1A 74
  1747.            D5 AA D9 8A 2A 74 D5 AA DC 8A 2A 71 00 19 03
  1748.           )
  1749.       VAR 1. *IGNORES* #.#'EQ 2.
  1750.       "Binding variable ~S can cause side effects despite of IGNORE declaration~%since it is declared SPECIAL."
  1751.       C-WARN 5. "variable ~S is used despite of IGNORE declaration." *IGNORABLES*
  1752.       "variable ~S is not used.~%Misspelled or missing IGNORE declaration?"
  1753.   )  )
  1754. #Y(#:TOP-LEVEL-FORM-139 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAKE-CLOSURE
  1755.    REMOVE-OLD-DEFINITIONS
  1756.    #Y(C-MAKE-CLOSURE
  1757.       #29Y(03 00 00 00 00 04 8E 03 03 00 19 04 D5 91 03 91 03 77 03 D6 AC 6E 41 77 02 5C 02 19 04)
  1758.       VENV MAKE-VECTOR1&PUSH
  1759.   )  )
  1760. #Y(#:TOP-LEVEL-FORM-140 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-FIXED-VAR-1
  1761.    REMOVE-OLD-DEFINITIONS
  1762.    #Y(BIND-FIXED-VAR-1
  1763.       #63Y(01 00 00 00 00 02 A8 88 5F 24 A8 84 00 20 A8 67 01 D7 37 02 88 B3 17 DC A9 DD 5F DE 5F
  1764.            DF 5F E0 5F E1 5F E2 67 0E E4 67 10 2C 10 11 19 02 A8 85 03 08 C4 4D 05 DA AC 2F 04 4E
  1765.            A8 2E 06 19 02
  1766.           )
  1767.       PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR "Constant ~S cannot be bound."
  1768.       MAKE-SPECIAL-VAR :NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ *STACKZ*
  1769.       :VENVC *VENVC* MAKE-VAR
  1770.   )  )
  1771. #Y(#:TOP-LEVEL-FORM-141 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-FIXED-VAR-2
  1772.    REMOVE-OLD-DEFINITIONS
  1773.    #Y(BIND-FIXED-VAR-2
  1774.       #29Y(01 00 00 00 00 02 D5 A9 D6 8B 2A 06 D5 A9 D7 8B 2A 03 00 19 02 D8 0E 04 58 0F 04 19 02)
  1775.       VAR 2. 3. (BIND 1.) *STACKZ*
  1776.   )  )
  1777. #Y(#:TOP-LEVEL-FORM-142 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-BIND-FIXED-VAR
  1778.    REMOVE-OLD-DEFINITIONS
  1779.    #Y(C-BIND-FIXED-VAR
  1780.       #65Y(03 00 00 00 00 04 D5 AB D6 8A 2A 09 D5 AB DD 8A 2A 1C 00 19 04 D5 AB D7 8A 2A 77 D8 AA
  1781.            67 04 AB 77 04 DA D5 AD DB 6E 2A 6B 07 5C 02 1A 0E D8 AA 67 04 AB 77 04 DE AC 67 04 AC
  1782.            5C 04 14 5C 02 19 04
  1783.           )
  1784.       VAR 2. 3. GET *VENVC* BIND 1. NEW-CONST 9. SET
  1785.   )  )
  1786. #Y(#:TOP-LEVEL-FORM-143 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1787.    PROCESS-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
  1788.    #Y(PROCESS-FIXED-VAR-LIST
  1789.       #75Y(01 00 01 00 00 08 3C 01 A9 A9 01 02 8F 03 32 D5 0E 01 58 0F 01 D7 37 01 6E 82 D8 5F D9
  1790.            5F DA 5F DB A3 56 54 14 DC 5F DD 67 01 DE 67 0A 6A 10 0B 80 00 90 03 6B 0C 80 01 91 03
  1791.            7F 03 66 03 8E 03 4E A8 6E 43 A8 6E 43 3F 02 19 07
  1792.           )
  1793.       1. *STACKZ* :NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC *VENVC*
  1794.       MAKE-VAR BIND-FIXED-VAR-1
  1795.   )  )
  1796. #Y(#:TOP-LEVEL-FORM-144 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UNMODIFY-UNUSED-VAR
  1797.    REMOVE-OLD-DEFINITIONS
  1798.    #Y(UNMODIFY-UNUSED-VAR
  1799.       #53Y(01 00 00 00 00 02 D5 A9 D6 6E 2A 5F 1A 20 83 01 00 74 D7 A8 D8 31 2A 57 1B 06 D7 A8 D9
  1800.            5F 31 2B 16 01 91 00 D7 A8 D9 5F 31 2B 16 01 7F 01 A8 89 92 5C 00 19 04
  1801.           )
  1802.       VAR 7. ANODE 2. 3.
  1803.   )  )
  1804. #Y(#:TOP-LEVEL-FORM-145 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1805.    CHECKING-FIXED-VAR-LIST REMOVE-OLD-DEFINITIONS
  1806.    #Y(CHECKING-FIXED-VAR-LIST
  1807.       #80Y(01 00 01 00 00 08 3C 01 5F AA 5F 1A 3A D6 A8 D9 5F 31 2B 9C 56 1C 0C D6 A8 DA 6E 2A DB
  1808.            30 A8 AB DC 30 A8 A7 2E 08 1A 1B 83 01 00 14 2E 00 D6 A8 D7 8A 2A 0F D6 A8 D8 8B 2A 53
  1809.            D6 A8 D9 8B 2A 03 A7 80 02 7F 04 7F 01 A8 89 92 5D A9 31 43 19 06
  1810.           )
  1811.       IGNORE-CHECK VAR 2. 6. 9. 10. 0. GONE UNMODIFY-UNUSED-VAR
  1812.   )  )
  1813. #Y(#:TOP-LEVEL-FORM-146 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BOUND-TO-VAR-P
  1814.    REMOVE-OLD-DEFINITIONS
  1815.    #Y(BOUND-TO-VAR-P
  1816.       #50Y(02 00 00 00 00 03 D5 AA D6 8A 2A 1E D7 A9 D8 6E 2A 6E 41 24 04 14 D7 A9 D8 31 2A 56 F7
  1817.            D7 A9 8A 2E 6A 99 1F 05 90 01 23 05 03 00 19 03 99 57 56 19 03
  1818.           )
  1819.       VAR 2. ANODE 3. 1. GET
  1820.   )  )
  1821. #Y(#:TOP-LEVEL-FORM-147 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-MOVABLE-VAR
  1822.    REMOVE-OLD-DEFINITIONS
  1823.    #Y(BIND-MOVABLE-VAR
  1824.       #130Y(02 00 00 00 00 03 A9 88 5F 80 61 A9 84 00 80 5C A9 67 01 D7 37 02 88 B3 80 52 DF 0E 07
  1825.             58 0F 07 E0 AA E1 5F E2 AD 6B 0E E4 AF 84 0E 80 4E 00 14 E6 5F E7 5F E8 5F E9 67 07 EA
  1826.             67 16 6A 12 17 A7 AA 6C 18 8F 00 13 A8 AB 77 02 A7 EE AA EF 31 2A 76 EE AA EF AA 31 2B
  1827.             16 02 16 01 15 19 03 C4 4D 08 DA AD 2F 04 4E C6 1A 08 C6 1A 05 A9 84 03 6E C8 14 0E 07
  1828.             58 0F 07 A9 2E 09 19 03 AF 2E 10 1A FF AD
  1829.            )
  1830.       PROCLAIMED-SPECIAL-P *SPECIALS* #.#'EQ C-CONSTANTP C-ERROR "Constant ~S cannot be bound." 0.
  1831.       *STACKZ* (BIND 1.) MAKE-SPECIAL-VAR 1. :NAME :SPECIALP :CONSTANTP ANODE-CONSTANTP :CONSTANT
  1832.       ANODE-CONSTANT :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC *VENVC* MAKE-VAR BOUND-TO-VAR-P
  1833.       VAR 8.
  1834.   )  )
  1835. #Y(#:TOP-LEVEL-FORM-148 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-BIND-MOVABLE-VAR
  1836.    REMOVE-OLD-DEFINITIONS
  1837.    #Y(C-BIND-MOVABLE-VAR
  1838.       #67Y(01 00 00 00 00 02 D5 A9 D6 8A 2A 12 D5 A9 DB 8A 2A 1E D5 A9 DE 31 2A 74 8B 84 25 00 19
  1839.            02 D5 A9 D7 8A 2A 77 D8 D5 AA D9 6E 2A 6B 05 5C 02 1A 0B DC A9 67 08 D5 AC DE 6E 2A 5C
  1840.            04 14 5C 01 19 02 CA 19 02
  1841.           )
  1842.       VAR 2. 3. BIND 1. NEW-CONST 9. SET *VENVC* 10. ((PUSH))
  1843.   )  )
  1844. #Y(#:TOP-LEVEL-FORM-149 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1845.    C-BIND-MOVABLE-VAR-ANODE REMOVE-OLD-DEFINITIONS
  1846.    #Y(C-BIND-MOVABLE-VAR-ANODE
  1847.       #57Y(02 00 00 00 00 03 D5 D6 AB 6B 02 6A 03 03 AA AA 6C 04 8F 00 1C DA A8 DB 6E 2A 5F 1A 0E
  1848.            83 01 00 74 9F 22 05 91 00 AB 30 AA 7F 01 A8 89 92 6E 16 02 16 01 A9 A8 5C 02 19 04
  1849.           )
  1850.       BIND-MOVABLE (NIL) C-BIND-MOVABLE-VAR MK-ANODE BOUND-TO-VAR-P VAR 8.
  1851.   )  )
  1852. #Y(#:TOP-LEVEL-FORM-150 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1853.    PROCESS-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
  1854.    #Y(PROCESS-MOVABLE-VAR-LIST
  1855.       #72Y(03 00 00 00 00 04 AA AA 01 03 8F 04 26 90 03 A7 D5 6C 01 90 06 A8 6C 02 A8 80 04 A7 80
  1856.            05 67 03 80 03 8F 09 03 A7 2E 04 16 03 91 04 7F 04 66 04 8E 04 5A 8E 06 05 95 04 9B 36
  1857.            00 A9 6E 43 A9 6E 43 A9 6E 43 3F 03 19 09
  1858.           )
  1859.       ONE C-FORM BIND-MOVABLE-VAR *STACKZ* PUSH-*VENV*
  1860.   )  )
  1861. #Y(#:TOP-LEVEL-FORM-151 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1862.    CHECKING-MOVABLE-VAR-LIST REMOVE-OLD-DEFINITIONS
  1863.    #Y(CHECKING-MOVABLE-VAR-LIST
  1864.       #152Y(02 00 00 00 00 03 A9 A9 5F 8F 02 37 90 02 8F 00 27 14 2E 00 D6 A8 D7 8A 2A 1E D6 A8 D8
  1865.             8A 2A 28 D6 A8 DD 8B 2A 80 47 D6 A8 D9 8B 2A 0B D6 A8 DA 6E 2A DB 30 A8 A7 80 01 16 01
  1866.             91 02 7F 02 66 02 8E 02 49 A7 31 43 19 06 D6 A8 D9 5F 31 2B D6 A8 DA 6E 2A DB 30 A8 90
  1867.             02 DC A8 D7 31 2A 16 01 57 1B 56 90 02 DC A8 D8 5F 31 2B 16 01 1A 4A D6 A8 D9 5F 31 2B
  1868.             D6 A8 DA 6E 2A DB 30 A8 90 02 DC A8 D7 31 2A 16 01 57 1B 0A 90 02 DC A8 D8 5F 31 2B 16
  1869.             01 A7 2E 09 1A FF A0
  1870.            )
  1871.       IGNORE-CHECK VAR 2. 3. 9. 10. 0. ANODE 6. UNMODIFY-UNUSED-VAR
  1872.   )  )
  1873. #Y(#:TOP-LEVEL-FORM-152 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-VAR-LIST
  1874.    REMOVE-OLD-DEFINITIONS
  1875.    #Y(OPTIMIZE-VAR-LIST
  1876.       #192Y(01 00 00 00 00 02 0E 00 1B 07 A8 6E 42 5F 1A 80 A7 00 19 02 83 01 00 1C 80 9C D6 A8 D7
  1877.             8A 2A 80 95 D6 A8 D8 8A 2A 80 8E D6 A8 D9 6E 2A 5F 1A 80 7E 83 01 00 74 D6 A8 D7 8A 2A
  1878.             80 6F D6 A8 D8 8A 2A 80 68 D6 A8 DA 8A 2A 80 61 D6 A8 DB 31 2A 74 23 07 80 57 99 57 57
  1879.             1C 80 51 D6 A8 DB 6E 2A DC 30 A8 99 57 74 DD A8 DE 5F 31 2B 16 01 99 57 75 DD A8 DE 5F
  1880.             31 2B 16 01 D6 AB DF 6E 2A D6 A9 DF 6E 2A 1A 1A 90 00 DD A8 DE 6E 2A 8F 00 0C 90 00 91
  1881.             00 B0 30 A8 16 01 A8 80 03 16 02 7F 00 98 20 63 16 01 D6 AC DF AA 31 2B 16 01 16 01 7F
  1882.             01 A8 89 92 FF 7D 16 02 7F 01 A8 89 92 FF 57 00 19 04
  1883.            )
  1884.       *NO-CODE* VAR 2. 9. 8. 7. 10. 0. ANODE 3. 5.
  1885.   )  )
  1886. #Y(#:TOP-LEVEL-FORM-153 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-BIND-WITH-SVARS
  1887.    REMOVE-OLD-DEFINITIONS
  1888.    #Y(C-BIND-WITH-SVARS
  1889.       #206Y(06 00 00 00 00 00 AD AD AD AD AD AD 5F 8F 06 80 63 9C 56 1C 0A 90 04 90 03 6C 00 A8 7C
  1890.             A1 00 90 06 90 06 90 05 90 04 D6 6B 02 D8 AC D9 8A 2A 80 4D D8 AC E0 8A 2A 80 67 D8 AC
  1891.             E2 8B 2A 80 83 DA AB 67 06 AB AB 77 05 AA E1 AE 67 06 AD 77 04 9B 14 5C 04 16 04 F6 A8
  1892.             7C A1 00 91 06 91 06 91 06 91 06 91 06 7F 06 66 06 66 06 66 06 66 06 66 06 8E 06 FF 9D
  1893.             A7 31 43 19 0E 00 5D 03 1A 55 DA AB 67 06 AB AB 77 05 AA A9 D8 AF DC 8A 2A 6B DD D8 B0
  1894.             DE 6E 2A 6B 0A 77 02 5C 01 5D 03 1A FF B4 DA AB 67 06 AB AB 77 05 AA A9 E1 AF 67 06 AE
  1895.             5C 04 1A FF 9D DA AB 67 06 AB AB 77 05 AA A9 5C 03 1A FF 91 E3 AA D9 31 2A 57 1B 69 00
  1896.             1A FF 85
  1897.            )
  1898.       C-BIND-MOVABLE-VAR-ANODE ONE MAKE-LABEL VAR 2. JMPIFBOUNDP *VENVC* 3. BIND 1. NEW-CONST 9.
  1899.       SET 6. ANODE
  1900.   )  )
  1901. #Y(#:TOP-LEVEL-FORM-154 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-LAMBDABODY
  1902.    REMOVE-OLD-DEFINITIONS
  1903.    #Y(C-LAMBDABODY
  1904.       #794Y(02 00 03 00 00 12 3C 03 3C 02 3C 01 AB D5 2F 01 D7 AD D8 67 04 DA 67 06 2C 06 07 10 04
  1905.             0E 04 10 08 67 04 0E 06 58 10 06 5F 2E 09 10 0A CB 10 0C CD 4D 81 B7 8E 15 82 D0 90 16
  1906.             2E 0E 41 0D 67 04 B4 6E 41 E4 A9 E5 AA 31 2B 16 02 67 04 B3 6E 41 E4 A9 E6 AA 31 2B 16
  1907.             02 67 04 B0 CB 55 54 14 E4 A9 E7 AA 31 2B 16 02 67 04 E4 A8 E8 B2 31 2B 16 01 67 04 E4
  1908.             A8 E9 B1 31 2B 16 01 67 04 E4 A8 EA AD 31 2B 16 01 8F 22 09 67 04 90 23 A8 30 A8 16 01
  1909.             91 23 60 67 16 67 17 6F 02 00 30 60 41 02 67 08 0E 08 10 08 0E 18 10 18 0E 16 10 16 0E
  1910.             06 10 06 00 10 19 00 10 1A 00 10 1B 01 16 62 2C 2E 1C 41 03 15 0F 1B 15 0F 1A 15 0F 19
  1911.             2D 1D 5F 0E 06 58 0F 06 F6 62 3A 62 4F 2F 1E 41 02 66 15 66 15 62 39 2E 1E 41 02 66 12
  1912.             66 12 62 36 23 0B 82 1F 62 36 77 01 2E 1E 41 02 66 0C 66 0C 62 33 2E 1E 41 02 66 09 66
  1913.             09 D5 0E 08 58 0F 08 E0 0E 08 58 0F 08 F7 BC 2E 1F 09 13 B9 B9 62 3A 62 3A 2C 04 20 41
  1914.             04 66 11 66 11 66 0E 66 10 62 36 23 0B 05 B3 2E 21 09 0A B0 B0 62 34 62 34 2C 04 20 41
  1915.             04 66 08 66 08 66 05 66 07 62 2F 62 2F 2F 22 41 02 66 03 66 03 61 23 04 2E 76 61 24 6C
  1916.             25 BD 62 50 6C 26 BB 6B 26 B9 B9 6C 27 B7 6B 26 B5 6B 26 B3 B3 6C 27 B1 B1 6C 27 6F 07
  1917.             20 67 0A A8 AB AD 6A 03 28 95 29 62 1A 62 1A 62 1A 6A 04 2A BE BE BD BF BE BE 6A 06 2B
  1918.             95 29 BA BA BA 6A 04 2A B7 B7 B6 B8 B7 B7 6A 06 2B 95 2C B3 B3 6A 03 2A AF 61 2D 67 08
  1919.             62 37 03 2E 78 03 03 2F 78 02 32 07 20 76 61 30 61 31 A9 6A 03 32 8F 02 0A AC D5 30 A8
  1920.             AB AA 9F 76 30 A8 62 19 BE BC BA B8 B6 B4 6F 07 20 2E 33 15 16 19 12 07 16 10 4E 14 67
  1921.             04 E4 A8 61 34 AB 31 2B 16 01 8F 11 19 67 04 E4 A8 E5 6E 2A 61 35 BB 37 06 6E 5C 6F 01
  1922.             34 E4 A9 E5 AA 31 2B 16 02 61 36 A8 D5 6E 2A 24 37 80 50 67 04 E4 A8 E5 E0 31 2B 16 01
  1923.             67 04 E4 A8 E6 E0 31 2B 16 01 67 04 E4 A8 E7 60 31 2B 16 01 67 04 E4 A8 E8 5F 31 2B 16
  1924.             01 67 04 E4 A8 E9 5F 31 2B 16 01 67 04 E4 A8 EA 5F 31 2B 16 01 67 04 E4 A8 61 34 7D 2A
  1925.             00 61 36 A8 61 38 61 39 31 2B 16 01 67 04 E4 A8 61 3A BD 31 2B 16 01 67 04 67 04 67 04
  1926.             67 04 67 04 E4 A8 61 38 31 2A 16 01 1B 80 89 CB 14 E4 A9 61 3B AA 31 2B 16 01 F6 67 04
  1927.             E4 A8 61 3C 7D 2A 00 6E 41 6F 02 33 E4 A9 61 3D AA 31 2B 16 01 F6 67 04 E4 A8 61 3E 7D
  1928.             2A 00 6E 41 6F 02 33 E4 A9 61 3F AA 31 2B 16 01 F6 67 04 E4 A8 E9 7D 2A 00 6E 41 6F 02
  1929.             33 E4 A9 61 40 AA 31 2B 16 02 8F 12 1E 67 04 E4 A8 61 3C 31 2A 16 01 1B 0C 67 04 E4 A8
  1930.             61 3E 31 2A 16 01 1C 06 61 41 61 42 2F 43 0E 04 16 01 12 05 19 06 56 57 57 43 1A FD 2D
  1931.             01 02 3F 02 1A FD E0 C0 1A FF 74
  1932.            )
  1933.       1. TEST-LIST :NAME :ENCLOSING *FUNC* :VENVC *VENVC* MAKE-FNODE *STACKZ* MAKE-LABEL
  1934.       *FUNC-START-LABEL* 0. *ANONYMOUS-COUNT* C-ERROR ANALYZE-LAMBDALIST FNODE 10. 11. 12. 13. 14.
  1935.       15. *VENV* *FENV* *DENV* *SPECIALS* *IGNORES* *IGNORABLES* PROCESS-DECLARATIONS PUSH-SPECIALS
  1936.       PROCESS-FIXED-VAR-LIST BIND-REQ-VARS BIND-OPT-VARS BIND-REST-VARS BIND-AUX-VARS PROGN ALL
  1937.       C-FORM CHECKING-FIXED-VAR-LIST CHECKING-MOVABLE-VAR-LIST C-MAKE-CLOSURE C-BIND-FIXED-VAR
  1938.       MAPCAP C-BIND-WITH-SVARS C-BIND-MOVABLE-VAR-ANODE UNWIND (T) ((RET)) LAMBDABODY (T . T)
  1939.       MK-ANODE OPTIMIZE-VAR-LIST 2. GONE ANODE ERROR 3. ((NIL) (SKIP 2.) (RET)) 20. 5. 6. 7. 8. 9.
  1940.       16. C-LAMBDABODY "GF" COMPILER-ERROR
  1941.   )  )
  1942. #Y(#:TOP-LEVEL-FORM-155 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-REQ-VARS
  1943.    REMOVE-OLD-DEFINITIONS
  1944.    #Y(BIND-REQ-VARS
  1945.       #37Y(01 00 00 00 00 02 5F A9 5F 1A 0F 83 01 00 14 2E 00 67 01 80 02 A7 2E 02 7F 01 A8 89 92
  1946.            6D 16 02 A7 31 43 19 03
  1947.           )
  1948.       PUSH-*VENV* *STACKZ* BIND-FIXED-VAR-2
  1949.   )  )
  1950. #Y(#:TOP-LEVEL-FORM-156 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-OPT-VARS
  1951.    REMOVE-OLD-DEFINITIONS
  1952.    #Y(BIND-OPT-VARS
  1953.       #129Y(04 00 00 00 00 05 01 04 AF AF AF AF 8F 03 80 56 90 00 23 00 80 62 D6 90 03 77 01 00 76
  1954.             D7 90 05 67 03 67 04 77 04 77 01 6A 03 05 90 01 A8 6C 06 A8 80 06 A7 80 07 16 02 90 01
  1955.             DC 6C 08 80 07 90 03 2E 09 67 04 80 06 90 03 2E 0A 90 00 23 00 04 90 05 2E 09 91 03 91
  1956.             03 91 03 7F 03 66 03 66 03 66 03 8E 03 FF AA 16 04 AA 6E 43 AA 6E 43 AA 6E 43 AA 6E 43
  1957.             3F 04 19 09 5F 80 05 5F 80 04 1A FF B7
  1958.            )
  1959.       0. OPTIONAL-SVAR BOUNDP *VENVC* *STACKZ* MK-ANODE BIND-MOVABLE-VAR ONE C-FORM PUSH-*VENV*
  1960.       BIND-FIXED-VAR-2
  1961.   )  )
  1962. #Y(#:TOP-LEVEL-FORM-157 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-REST-VARS
  1963.    REMOVE-OLD-DEFINITIONS
  1964.    #Y(BIND-REST-VARS #22Y(01 00 00 00 00 02 5F 90 02 2E 00 67 01 80 00 90 02 2E 02 15 19 02)
  1965.       PUSH-*VENV* *STACKZ* BIND-FIXED-VAR-2
  1966.   )  )
  1967. #Y(#:TOP-LEVEL-FORM-158 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-AUX-VARS
  1968.    REMOVE-OLD-DEFINITIONS
  1969.    #Y(BIND-AUX-VARS
  1970.       #56Y(02 00 00 00 00 03 01 02 AB AB 8F 01 1F 90 00 A7 D5 6C 01 90 03 A8 6C 02 A8 80 05 A7 80
  1971.            06 A7 2E 03 16 03 91 01 7F 01 66 01 8E 01 61 16 02 A8 6E 43 A8 6E 43 3F 02 19 05
  1972.           )
  1973.       ONE C-FORM BIND-MOVABLE-VAR PUSH-*VENV*
  1974.   )  )
  1975. #Y(#:TOP-LEVEL-FORM-159 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FNODE-FUNCTION
  1976.    REMOVE-OLD-DEFINITIONS
  1977.    #Y(C-FNODE-FUNCTION
  1978.       #222Y(01 00 01 00 00 08 3A 01 02 0E 00 10 00 D6 D7 D8 AF D9 6E 2A 8A 84 11 D8 AF DB 8A 2A 14
  1979.             00 14 5F D8 B1 E0 6E 2A 1A 80 52 DA AF 77 02 5C 01 1A 80 A6 DC D8 B0 DD 6E 2A 67 00 77
  1980.             03 C9 76 DF 0E 00 58 0F 00 15 1A 58 E3 A8 5C 02 1A 1D 90 00 A7 67 0C D8 A8 E0 7D 2A 00
  1981.             E2 37 02 88 B3 69 E4 E5 A9 DD 6E 2A 67 11 67 00 5C 04 14 D2 76 DF 0E 00 58 0F 00 AA 7C
  1982.             A1 02 16 01 7F 00 98 20 4F 16 01 A7 7C A3 00 5F D8 B2 E8 6E 2A 1A 35 E9 A8 5C 02 1A 1D
  1983.             90 00 A7 67 0C D8 A8 E8 7D 2A 00 E2 37 02 88 B3 69 E4 EA A9 DD 6E 2A 67 11 67 00 5C 04
  1984.             14 03 16 76 DF 0E 00 58 0F 00 AA 7C A1 02 16 01 7F 00 98 20 4E 16 01 A7 7C A3 00 EC B2
  1985.             D8 B4 D9 6E 2A 77 03 77 01 32 04 20 14 2C 03 18 11 19 03
  1986.            )
  1987.       *STACKZ* FUNCTION (NIL) FNODE 9. FCONST 3. VENV 4. ((PUSH)) 1. 6. *FUNC* #.#'EQ BCONST GET
  1988.       BLOCK *VENVC* ((PUSH)) 8. GCONST TAGBODY ((PUSH)) COPY-CLOSURE MK-ANODE
  1989.   )  )
  1990. #Y(#:TOP-LEVEL-FORM-160 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROGN
  1991.    REMOVE-OLD-DEFINITIONS
  1992.    #Y(C-PROGN
  1993.       #80Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 75 8F 00 31 98 57 1C 31 DA 5F A9 8F 00 1D 90 00
  1994.            7F 01 A7 8F 02 29 00 14 6C 04 AB DC A9 DD 6E 2A 2F 09 FA A7 80 03 16 02 8E 00 63 DF AA
  1995.            AA 6E 43 2C 03 0B 19 05 2D 03 19 02 90 00 2E 04 19 02 0E 06 1A 54
  1996.           )
  1997.       *FORM* 1. TEST-LIST C-NIL C-FORM (NIL) *FOR-VALUE* ANODE 2. SECLASS-OR-2 PROGN MK-ANODE
  1998.   )  )
  1999. #Y(#:TOP-LEVEL-FORM-161 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROG1
  2000.    REMOVE-OLD-DEFINITIONS
  2001.    #Y(C-PROG1
  2002.       #83Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1C 3B 67 03 24 04 06 0E 00 57 57 1C 30 0E 00 57
  2003.            74 D9 6C 06 DC 0E 08 58 10 08 DA 0E 00 57 57 76 5F 2F 06 11 14 DE DF AA D6 6E 2A DF AA
  2004.            D6 6E 2A 6C 0B AA E1 AB CD 78 03 2C 03 0E 19 03 DA 0E 00 57 76 2E 06 19 01
  2005.           )
  2006.       *FORM* 2. TEST-LIST *FOR-VALUE* ONE PROGN C-FORM 1. *STACKZ* PROG1 ANODE SECLASS-OR-2 (PUSH)
  2007.       ((POP)) MK-ANODE
  2008.   )  )
  2009. #Y(#:TOP-LEVEL-FORM-162 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROG2
  2010.    REMOVE-OLD-DEFINITIONS
  2011.    #Y(C-PROG2
  2012.       #35Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 0E 00 57 74 D9 0E 00 57 57 74 0E 00 57 57 57 78 02
  2013.            77 03 2E 05 19 01
  2014.           )
  2015.       *FORM* 3. TEST-LIST PROGN PROG1 C-FORM
  2016.   )  )
  2017. #Y(#:TOP-LEVEL-FORM-163 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-IF
  2018.    REMOVE-OLD-DEFINITIONS
  2019.    #Y(C-IF
  2020.       #122Y(00 00 00 00 00 01 67 00 D6 D7 2C 03 03 0E 00 57 74 0E 00 57 57 74 0E 00 57 57 57 74 A9
  2021.             D9 6C 05 A7 84 06 80 43 A9 6B 05 A9 6B 05 5F 6B 09 67 0A 6B 09 E0 E1 AD E2 6E 2A E1 AD
  2022.             E2 6E 2A 6C 0E E1 AC E2 6E 2A 6C 0E AD E4 AC 77 02 AE E5 AD 77 02 AE B0 AF 77 07 2C 03
  2023.             11 19 09 A9 6B 05 02 10 08 AC 5F 2F 05 11 15 19 05 A7 84 07 6E 02 10 08 AC 5F 2F 05 11
  2024.             A8 2E 05 3E 19 05
  2025.            )
  2026.       *FORM* 3. 4. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE *NO-CODE* MAKE-LABEL
  2027.       *FOR-VALUE* IF ANODE 2. SECLASS-OR-2 JMPIFNOT JMP MK-ANODE
  2028.   )  )
  2029. #Y(#:TOP-LEVEL-FORM-164 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-WHEN
  2030.    REMOVE-OLD-DEFINITIONS
  2031.    #Y(C-WHEN
  2032.       #28Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 0E 00 57 74 D9 0E 00 57 57 76 77 03 2E 05 19 01)
  2033.       *FORM* 2. TEST-LIST IF PROGN C-FORM
  2034.   )  )
  2035. #Y(#:TOP-LEVEL-FORM-165 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-UNLESS
  2036.    REMOVE-OLD-DEFINITIONS
  2037.    #Y(C-UNLESS
  2038.       #29Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 0E 00 57 74 5F D9 0E 00 57 57 76 77 04 2E 05 19 01)
  2039.       *FORM* 2. TEST-LIST IF PROGN C-FORM
  2040.   )  )
  2041. #Y(#:TOP-LEVEL-FORM-166 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-AND
  2042.    REMOVE-OLD-DEFINITIONS
  2043.    #Y(C-AND
  2044.       #166Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 1C 80 52 0E 00 57 57 1C 80 53 DD 5F 0E 00 75
  2045.             67 09 6B 0A 8F 01 32 90 01 7F 02 A7 8F 03 80 46 CB 14 6C 07 AC E1 A9 E2 6E 2A 2F 0E FB
  2046.             8F 03 3B A7 84 0F 3A A7 80 04 0E 09 1B 80 59 D4 14 AA 5C 02 14 80 04 16 02 8E 01 4E A7
  2047.             80 02 D8 AB AB 6E 43 2C 03 06 19 05 D8 D9 DA 2C 03 06 19 01 0E 00 57 74 2E 07 19 01 0E
  2048.             09 1A FF B6 98 1A 53 A7 84 10 52 0E 09 1C 03 E6 80 04 02 10 12 AD 5F 1A 09 83 01 00 14
  2049.             5F 2F 07 7F 01 A8 89 92 73 16 02 11 79 03 1A FF AF D3 1A FF A4
  2050.            )
  2051.       *FORM* 1. TEST-LIST AND (NIL) ((T)) MK-ANODE C-FORM (NIL) *FOR-VALUE* MAKE-LABEL ONE ANODE 2.
  2052.       SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE (NIL) *NO-CODE* JMPIFNOT1 JMPIFNOT
  2053.   )  )
  2054. #Y(#:TOP-LEVEL-FORM-167 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-OR
  2055.    REMOVE-OLD-DEFINITIONS
  2056.    #Y(C-OR
  2057.       #166Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 1C 80 52 0E 00 57 57 1C 80 53 DD 5F 0E 00 75
  2058.             67 09 6B 0A 8F 01 32 90 01 7F 02 A7 8F 03 80 46 CB 14 6C 07 AC E1 A9 E2 6E 2A 2F 0E FB
  2059.             8F 03 3B A7 84 0F 3A A7 80 04 0E 09 1B 80 59 D3 14 AA 5C 02 14 80 04 16 02 8E 01 4E A7
  2060.             80 02 D8 AB AB 6E 43 2C 03 06 19 05 D8 D9 DA 2C 03 06 19 01 0E 00 57 74 2E 07 19 01 0E
  2061.             09 1A FF B6 98 1A 53 A7 85 10 52 0E 09 1C 03 A7 80 04 02 10 11 AD 5F 1A 09 83 01 00 14
  2062.             5F 2F 07 7F 01 A8 89 92 73 16 02 11 79 03 1A FF AF D2 1A FF A4
  2063.            )
  2064.       *FORM* 1. TEST-LIST OR (NIL) ((NIL)) MK-ANODE C-FORM (NIL) *FOR-VALUE* MAKE-LABEL ONE ANODE
  2065.       2. SECLASS-OR-2 ANODE-CONSTANTP ANODE-CONSTANT-VALUE *NO-CODE* JMPIF1 JMPIF
  2066.   )  )
  2067. #Y(#:TOP-LEVEL-FORM-168 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-QUOTE
  2068.    REMOVE-OLD-DEFINITIONS
  2069.    #Y(C-QUOTE
  2070.       #40Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 D8 D9 0E 05 1B 07 00 14 2C 03 08 19
  2071.            02 DB AA 6B 07 77 02 5C 01 1A 70
  2072.           )
  2073.       *FORM* 2. TEST-LIST QUOTE (NIL) *FOR-VALUE* CONST NEW-CONST MK-ANODE
  2074.   )  )
  2075. #Y(#:TOP-LEVEL-FORM-169 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-THE
  2076.    REMOVE-OLD-DEFINITIONS
  2077.    #Y(C-THE #22Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 57 74 2E 03 19 01) *FORM* 3.
  2078.       TEST-LIST C-FORM
  2079.   )  )
  2080. #Y(#:TOP-LEVEL-FORM-170 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-DECLARE
  2081.    REMOVE-OLD-DEFINITIONS
  2082.    #Y(C-DECLARE #18Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 67 00 2F 04 19 01) *FORM* 1. TEST-LIST
  2083.       "Misplaced declaration: ~S" C-ERROR
  2084.   )  )
  2085. #Y(#:TOP-LEVEL-FORM-171 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-LOAD-TIME-VALUE
  2086.    REMOVE-OLD-DEFINITIONS
  2087.    #Y(C-LOAD-TIME-VALUE
  2088.       #46Y(00 00 00 00 00 01 67 00 D6 D7 2C 03 03 0E 00 57 74 D9 DA 0E 06 1B 07 00 14 2C 03 0B 19
  2089.            02 DC DD AB 6D 5C DE AD 6A 04 0A 77 02 5C 01 1A 6A
  2090.           )
  2091.       *FORM* 2. 3. TEST-LIST LOAD-TIME-VALUE (NIL) *FOR-VALUE* CONST :VALUE :FORM MAKE-CONST
  2092.       MK-ANODE
  2093.   )  )
  2094. #Y(#:TOP-LEVEL-FORM-172 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-CATCH
  2095.    REMOVE-OLD-DEFINITIONS
  2096.    #Y(C-CATCH
  2097.       #66Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 6C 04 DA 0E 06 58 10 06 DC 0E 00 57 57
  2098.            76 2E 04 11 14 67 08 6B 09 DA DF AB D6 6E 2A DF AB D6 6E 2A 6C 0B AB E1 AB 77 02 AC E2
  2099.            AD 77 05 2C 03 0E 19 04
  2100.           )
  2101.       *FORM* 2. TEST-LIST ONE C-FORM CATCH *STACKZ* PROGN *FOR-VALUE* MAKE-LABEL ANODE SECLASS-OR-2
  2102.       CATCH-OPEN (CATCH-CLOSE) MK-ANODE
  2103.   )  )
  2104. #Y(#:TOP-LEVEL-FORM-173 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-THROW
  2105.    REMOVE-OLD-DEFINITIONS
  2106.    #Y(C-THROW
  2107.       #63Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 D8 6C 04 DA 0E 06 58 10 06 0E 00 57
  2108.            57 74 DC 2F 04 11 14 DD DE AA DF 6E 2A DE AA DF 6E 2A 2F 0B 74 02 76 AA E1 AB CD 78 03
  2109.            2C 03 0E 19 03
  2110.           )
  2111.       *FORM* 3. TEST-LIST ONE C-FORM 1. *STACKZ* ALL THROW ANODE 2. SECLASS-OR-2 (PUSH) ((THROW))
  2112.       MK-ANODE
  2113.   )  )
  2114. #Y(#:TOP-LEVEL-FORM-174 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-UNWIND-PROTECT
  2115.    REMOVE-OLD-DEFINITIONS
  2116.    #Y(C-UNWIND-PROTECT
  2117.       #98Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 0E 04 58 10 04 0E 00 57 74 2E 05 11 14 DB 0E 04 58
  2118.            10 04 DC 0E 00 57 57 76 5F 2F 05 11 14 5F 6B 08 D8 DE AB D6 6E 2A DE AB D6 6E 2A 6C 0A
  2119.            E0 AA 77 02 AC 0E 0C 25 0D 09 CE 1A 07 CF 1A 04 00 1A 01 00 14 E5 AD AF E6 B0 77 02 77
  2120.            04 32 02 20 78 02 2C 03 12 19 04
  2121.           )
  2122.       *FORM* 2. TEST-LIST UNWIND-PROTECT *STACKZ* C-FORM CLEANUP PROGN MAKE-LABEL ANODE
  2123.       SECLASS-OR-2 UNWIND-PROTECT-OPEN *FOR-VALUE* #S(HASH-TABLE EQ (T . 7.) (ONE . 4.) (NIL . 1.))
  2124.       ((VALUES0)) ((VALUES1)) (UNWIND-PROTECT-NORMAL-EXIT) UNWIND-PROTECT-CLOSE MK-ANODE
  2125.   )  )
  2126. #Y(#:TOP-LEVEL-FORM-175 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PROGV
  2127.    REMOVE-OLD-DEFINITIONS
  2128.    #Y(C-PROGV
  2129.       #169Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 6C 04 A7 85 05 05 A7 85 06 80 69 DD 0E
  2130.             09 76 98 10 09 0E 00 57 57 74 D8 2F 04 11 14 DF 0E 09 76 98 10 09 DC 0E 00 57 57 57 76
  2131.             2E 04 11 14 60 E0 A9 E1 31 2A 56 1B 0A AB E2 30 A8 A9 E2 30 A8 79 00 DF E0 AE E1 6E 2A
  2132.             E0 AD E1 6E 2A 6C 0E E0 AB E1 6E 2A 6C 0E AE 8E 03 2E 00 14 AE 8E 05 2B 00 14 AE 8E 07
  2133.             28 00 76 32 02 20 76 32 02 20 76 2C 03 13 19 07 DC 0E 00 57 57 74 DC 0E 00 57 57 57 76
  2134.             77 03 2E 04 19 02 CF 1A 50 D0 1A 53 E6 B1 67 09 67 12 77 04 5C 01 1A 4D
  2135.            )
  2136.       *FORM* 3. TEST-LIST ONE C-FORM ANODE-CONSTANTP ANODE-CONSTANT-VALUE PROGN 1. *STACKZ* PROGV
  2137.       ANODE 2. 0. SECLASS-OR-2 ((PUSH)) ((PROGV)) UNWIND *FOR-VALUE* MK-ANODE
  2138.   )  )
  2139. #Y(#:TOP-LEVEL-FORM-176 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  2140.    C-MULTIPLE-VALUE-PROG1 REMOVE-OLD-DEFINITIONS
  2141.    #Y(C-MULTIPLE-VALUE-PROG1
  2142.       #121Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 25 04 80 65 E2 E3 E4 E5 E6 6A 04 12 77 02 E8 AC
  2143.             E9 AD 03 15 5D 05 1A 3D DA 0E 06 76 98 10 06 0E 00 57 74 2E 07 11 14 DD 0E 06 58 10 06
  2144.             DE 0E 00 57 57 76 5F 2F 07 11 14 DF E0 AA D6 6E 2A E0 AA D6 6E 2A 6C 0C E0 AA D6 31 2A
  2145.             57 1B FF B6 AB EB 30 A8 AA 5C 01 14 2C 03 17 19 04 03 18 1A 01 C9 14 0E 00 57 76 2E 07
  2146.             19 01 00 19 01
  2147.            )
  2148.       *FORM* 2. TEST-LIST *FOR-VALUE* #S(HASH-TABLE EQ (NIL . 93.) (ONE . 89.) (ALL . 22.)) MVCALLP
  2149.       *STACKZ* C-FORM MVCALL PROGN MULTIPLE-VALUE-PROG1 ANODE SECLASS-OR-2 CONST :VALUE #.#'VALUES
  2150.       :FORM #'VALUES MAKE-CONST (MVCALLP) (MV-TO-STACK) ((MVCALL)) 0. MK-ANODE PROG1
  2151.   )  )
  2152. #Y(#:TOP-LEVEL-FORM-177 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MULTIPLE-VALUE-CALL
  2153.    REMOVE-OLD-DEFINITIONS
  2154.    #Y(C-MULTIPLE-VALUE-CALL
  2155.       #101Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 57 1C 80 47 0E 00 57 74 D9 6C 05 5F A8 80 00
  2156.             DB 80 00 0E 00 57 75 DC 8F 01 22 90 01 7F 02 A8 8A 84 32 C9 14 0E 0A 58 10 0A AA E0 2F
  2157.             05 11 14 A7 80 04 E1 80 04 16 02 81 00 8E 01 5E 16 02 E2 80 00 E3 E4 A9 6E 43 2C 03 10
  2158.             19 03 0E 00 57 74 5F 2F 03 19 01 C8 1A 4C
  2159.            )
  2160.       *FORM* 2. TEST-LIST C-FUNCTION-CALL ONE C-FORM (MVCALLP) 0. MVCALLP MVCALL *STACKZ* ALL
  2161.       (MV-TO-STACK) (MVCALL) MULTIPLE-VALUE-CALL (T . T) MK-ANODE
  2162.   )  )
  2163. #Y(#:TOP-LEVEL-FORM-178 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MULTIPLE-VALUE-LIST
  2164.    REMOVE-OLD-DEFINITIONS
  2165.    #Y(C-MULTIPLE-VALUE-LIST
  2166.       #46Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 03 1B 08 0E 00 57 74 2E 05 19 01 0E 00 57 74
  2167.            D9 6C 05 DB DC A9 D6 6E 2A A9 C8 76 2C 03 09 19 02
  2168.           )
  2169.       *FORM* 2. TEST-LIST *FOR-VALUE* ALL C-FORM MULTIPLE-VALUE-LIST ANODE ((MV-TO-LIST)) MK-ANODE
  2170.   )  )
  2171. #Y(#:TOP-LEVEL-FORM-179 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SETQLIST-MACROP
  2172.    REMOVE-OLD-DEFINITIONS
  2173.    #Y(SETQLIST-MACROP
  2174.       #37Y(01 00 00 00 00 02 A8 8F 00 15 90 00 A7 8B 03 06 A7 6B 00 84 01 0C 16 01 98 57 57 F6 8E
  2175.            00 6B 00 19 03 02 19 04
  2176.           )
  2177.       VENV-SEARCH-MACRO SYMBOL-MACRO-P
  2178.   )  )
  2179. #Y(#:TOP-LEVEL-FORM-180 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-SETQ
  2180.    REMOVE-OLD-DEFINITIONS
  2181.    #Y(C-SETQ
  2182.       #143Y(00 00 00 00 00 01 67 00 D6 2F 02 67 00 6E 41 8B 88 05 D8 67 00 2F 04 0E 00 57 1C 39 0E
  2183.             00 75 84 06 37 0E 00 75 E0 5F 8F 02 21 90 02 9B 57 74 A7 E1 6C 0A A9 8A 03 37 C4 4D 05
  2184.             E6 AD 2F 04 4E E7 80 03 16 03 9A 57 57 F8 8E 02 5F E8 A9 A9 6E 43 2C 03 14 19 04 2D 05
  2185.             19 01 DC 6D 58 DC 0E 00 57 76 67 08 67 09 6F 02 00 72 02 2E 0A 19 01 A7 80 03 AB E2 A9
  2186.             E3 6E 2A 2F 0F FA A9 A8 6C 10 A7 80 04 AC E2 A9 E3 6E 2A 2F 0F FB 16 01 1A FF B3
  2187.            )
  2188.       *FORM* 1. TEST-LIST "Odd number of arguments to SETQ: ~S" C-ERROR C-NIL SETQLIST-MACROP SETF
  2189.       *VENV* *FENV* C-FORM (NIL) ONE ANODE 2. SECLASS-OR-2 C-VARSET
  2190.       "Cannot assign to non-symbol ~S." (VALUES1) SETQ MK-ANODE
  2191.   )  )
  2192. #Y(#:TOP-LEVEL-FORM-181 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PSETQ
  2193.    REMOVE-OLD-DEFINITIONS
  2194.    #Y(C-PSETQ
  2195.       #243Y(00 00 00 00 00 01 67 00 D6 2F 02 67 00 6E 41 8B 88 05 D8 67 00 2F 04 0E 00 57 1C 80 99
  2196.             0E 00 75 84 06 80 96 01 02 0E 00 75 8F 00 1E 90 00 7F 01 90 01 7F 02 A7 E0 6C 0A A9 8A
  2197.             03 80 92 C4 4D 05 E4 AD 2F 04 4E 16 03 8E 00 62 16 01 01 02 E5 AB AB 8F 01 80 4A 90 01
  2198.             90 01 E6 A8 E7 6E 2A AC 86 13 80 7E E6 A9 E7 6E 2A AC 86 13 80 7D E9 80 06 A8 80 06 EA
  2199.             80 05 A7 80 05 67 0E D6 30 A8 AB E6 AA E7 6E 2A E6 AA E7 6E 2A 6C 16 2F 16 FA 0E 0E 57
  2200.             0F 0E 16 02 91 01 7F 01 66 01 8E 01 FF B6 16 02 0E 17 1C 03 ED 80 01 EE A8 AB AB 6E 43
  2201.             6F 02 21 2C 03 1A 19 06 2D 05 19 01 DC 6D 58 DC 0E 00 57 76 67 08 67 09 6F 02 00 72 02
  2202.             2E 0A 19 01 A7 80 05 A9 A8 6C 0C 80 04 E2 0E 0E 58 0F 0E 1A FF 64 A7 80 06 A8 80 06 1A
  2203.             FF 94 A8 80 05 A7 80 05 1A FF 8B
  2204.            )
  2205.       *FORM* 1. TEST-LIST "Odd number of arguments to PSETQ: ~S" C-ERROR C-NIL SETQLIST-MACROP
  2206.       PSETF *VENV* *FENV* C-FORM ONE C-VARSET 0. *STACKZ* "Cannot assign to non-symbol ~S." (NIL)
  2207.       ANODE 2. SECLASSES-COMMUTE (PUSH) (POP) SECLASS-OR-2 *FOR-VALUE* (NIL) PSETQ MK-ANODE
  2208.   )  )
  2209. #Y(#:TOP-LEVEL-FORM-182 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MULTIPLE-VALUE-SETQ
  2210.    REMOVE-OLD-DEFINITIONS
  2211.    #Y(C-MULTIPLE-VALUE-SETQ
  2212.       #208Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 D8 2F 02 0E 00 57 74 5F 1A 80 51 16
  2213.             02 DB 0E 00 57 76 2E 07 19 01 CE 1A 0D DF E0 AC E1 6E 2A AC 67 0D 23 08 71 00 76 2C 03
  2214.             0F 1A 80 8F A7 E5 E6 5F 6A 03 0F 6C 12 A7 80 02 AA E0 A9 E1 6E 2A 2F 13 F9 16 01 1A 80
  2215.             4E 7F 00 1A 80 66 83 01 00 14 8B 03 07 A7 6B 04 84 05 FF B1 7F 01 A8 89 92 6C 16 02 0E
  2216.             00 57 74 6E 41 0E 00 57 57 74 DD 6C 07 0E 09 10 09 AB 8A 84 FF A0 0E 00 57 74 E0 AC E1
  2217.             6E 2A 5F 8F 02 1F 90 02 A7 8A 03 FF A0 D4 4D 05 EA AB 2F 14 4E 16 01 EB 80 00 EC 0E 09
  2218.             58 0F 09 7F 02 8E 02 61 AE EC 8C 01 2B FF 9B ED AF 77 02 80 00 DF A9 AF 9B 76 2C 03 0F
  2219.             16 03 11 19 03
  2220.            )
  2221.       *FORM* 3. TEST-LIST 0. VENV-SEARCH-MACRO SYMBOL-MACRO-P MULTIPLE-VALUE-SETF C-FORM ALL
  2222.       *STACKZ* MULTIPLE-VALUE-SETQ ANODE 2. *FOR-VALUE* ((VALUES1)) MK-ANODE NOP (NIL) C-VARSET
  2223.       SECLASS-OR-2 C-ERROR "Cannot assign to non-symbol ~S." (POP) 1. NV-TO-STACK
  2224.   )  )
  2225. #Y(#:TOP-LEVEL-FORM-183 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-LET/LET*
  2226.    REMOVE-OLD-DEFINITIONS
  2227.    #Y(C-LET/LET*
  2228.       #389Y(01 00 00 00 00 02 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 0E 00 57 75 5F 67 04 67 05 6F 02
  2229.             00 30 60 41 02 67 06 0E 06 10 06 0E 07 10 07 0E 04 10 04 0E 08 10 08 B4 2E 09 41 03 9A
  2230.             10 0A 9C 10 0B 9E 10 0C 2D 0D 0E 00 57 74 2E 0E 41 02 D8 0E 06 58 0F 06 5F 0E 08 58 0F
  2231.             08 67 06 67 08 AA AA 62 22 2C 03 0F 41 03 8E 23 06 D8 0E 06 58 0F 06 E5 04 22 76 6B 11
  2232.             AA AA 6C 12 A7 AD AF 6A 03 13 8E 26 08 01 02 AE AE AE 1A 80 71 95 14 AD AD 2C 03 15 1A
  2233.             80 B0 90 02 EE 37 01 6E 82 EF 5F F0 5F F1 AE 6A 08 1D A7 AB 0E 06 75 77 03 80 08 90 01
  2234.             67 06 A8 99 57 76 A8 A8 30 AA 16 03 A8 EC 30 A8 A7 AA 2F 14 16 02 1A 27 90 02 90 02 EB
  2235.             A9 D6 8B 2A 19 00 2A 01 EB AA EC 31 2A 0B 00 00 A7 69 18 01 91 05 32 00 25 16 01 1B FF
  2236.             AA A8 A8 2F 14 16 01 F6 AB 7C A1 03 7F 02 7F 01 7F 00 9A 1F 06 99 1F 03 98 20 43 16 03
  2237.             A7 7C A3 00 5F A9 6E 43 1A 26 03 22 1A 80 45 90 00 90 00 99 57 74 9A 57 57 74 F3 AA 67
  2238.             08 AA 77 04 A9 2E 1F 58 16 02 F6 AA 7C A1 02 16 01 7F 00 98 20 5C 16 01 A7 7C A3 00 32
  2239.             02 20 16 01 14 AA F5 67 06 62 26 67 21 77 04 77 02 6F 03 20 8E 26 FF B8 03 23 14 AC AB
  2240.             77 01 6F 02 20 6B 24 AE 6C 25 A9 6A 03 26 8F 02 0A AF EC 30 A8 AE AA A2 76 30 A8 AD 2E
  2241.             27 15 16 0A 12 03 16 03 12 04 19 05
  2242.            )
  2243.       *FORM* 2. TEST-LIST 0. *VENV* *FENV* *STACKZ* *DENV* *VENVC* PROCESS-DECLARATIONS *SPECIALS*
  2244.       *IGNORES* *IGNORABLES* PUSH-SPECIALS ANALYZE-LETLIST PROCESS-MOVABLE-VAR-LIST PROGN C-FORM
  2245.       CHECKING-MOVABLE-VAR-LIST C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP VAR 1.
  2246.       #Y(C-LET/LET*-1
  2247.          #29Y(01 00 00 00 00 02 D6 A9 D7 31 2A 74 A7 02 55 1D 0A 65 00 01 A8 37 03 30 B3 19 03 19
  2248.               03
  2249.              )
  2250.          NIL ANODE 2.
  2251.         )
  2252.       :NAME :SPECIALP :CLOSUREP :STACKZ MAKE-VAR GET C-BIND-MOVABLE-VAR UNWIND *FOR-VALUE* LET* LET
  2253.       ANODELIST-SECLASS-OR SECLASS-WITHOUT MK-ANODE OPTIMIZE-VAR-LIST
  2254.   )  )
  2255. #Y(#:TOP-LEVEL-FORM-184 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-LOCALLY
  2256.    REMOVE-OLD-DEFINITIONS
  2257.    #Y(C-LOCALLY
  2258.       #58Y(00 00 01 00 00 07 3A 01 03 96 00 01 67 01 D7 2F 03 0E 01 75 5F 67 04 67 05 6F 02 00 30
  2259.            60 41 02 0E 04 10 04 AA 2E 06 41 03 9A 10 07 2D 08 B3 DE A4 76 35 01 11 16 03 11 19 04
  2260.           )
  2261.       C-FORM *FORM* 1. TEST-LIST *VENV* *FENV* PROCESS-DECLARATIONS *SPECIALS* PUSH-SPECIALS PROGN
  2262.   )  )
  2263. #Y(#:TOP-LEVEL-FORM-185 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MULTIPLE-VALUE-BIND
  2264.    REMOVE-OLD-DEFINITIONS
  2265.    #Y(C-MULTIPLE-VALUE-BIND
  2266.       #364Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 0E 00 57 74 A7 5F 1A 80 4E DC 90
  2267.             01 0E 00 57 57 74 77 02 77 01 0E 00 57 57 57 78 02 2E 08 19 02 0E 00 57 57 74 5F 6C 08
  2268.             E8 0E 00 57 57 57 76 6B 08 E9 EA AA EB 6E 2A EA AA EB 6E 2A 6C 17 AA AA 77 02 2C 03 18
  2269.             16 02 1A 81 08 83 01 00 14 8A 03 04 D9 A8 2F 05 7F 01 A8 89 92 6F 16 02 A7 6E 41 DB 8C
  2270.             01 2B FF A3 0E 00 57 57 75 5F 67 09 67 0A 6F 02 00 30 60 41 02 67 0B 0E 0B 10 0B 0E 0C
  2271.             10 0C 0E 09 10 09 0E 0D 10 0D B4 2E 0E 41 03 9A 10 0F 9C 10 10 9E 10 11 2D 12 8F 1B FF
  2272.             83 0E 00 57 57 74 EE 6C 08 5F 0E 0D 58 0F 0D 62 1C 2E 1A 41 02 D8 0E 0B 58 0F 0B 14 67
  2273.             0D AA 5F 8F 01 13 90 01 A7 2E 1B 67 0B 80 01 A7 2E 1C 16 01 7F 01 8E 01 6D A7 31 43 16
  2274.             01 F6 E8 04 21 76 6B 08 AC 6B 1D AE F3 62 25 6E 41 77 02 A9 AD AF 6A 03 1F AF AD B2 5F
  2275.             8F 01 1D 90 01 90 04 90 04 6A 03 20 6E 42 A8 7E 02 20 00 91 03 91 03 7F 03 66 03 66 03
  2276.             8E 01 63 A7 31 43 16 03 F6 AC 61 21 67 0B 62 27 67 22 77 04 77 02 32 03 20 78 02 E9 EA
  2277.             B1 EB 6E 2A EA AC EB 6E 2A 6C 17 B0 6C 23 A9 6A 03 18 8F 02 0A AD DB 30 A8 AC AA A0 76
  2278.             30 A8 AF 2E 24 15 16 09 12 03 16 03 12 04 19 05
  2279.            )
  2280.       *FORM* 3. TEST-LIST 0. "Only symbols may be used as variables, not ~S" C-ERROR 1. LET C-FORM
  2281.       *VENV* *FENV* *STACKZ* *DENV* *VENVC* PROCESS-DECLARATIONS *SPECIALS* *IGNORES* *IGNORABLES*
  2282.       PUSH-SPECIALS PROGN MULTIPLE-VALUE-BIND ANODE 2. SECLASS-OR-2 MK-ANODE ALL
  2283.       PROCESS-FIXED-VAR-LIST PUSH-*VENV* BIND-FIXED-VAR-2 CHECKING-FIXED-VAR-LIST NV-TO-STACK
  2284.       C-MAKE-CLOSURE C-BIND-FIXED-VAR UNWIND *FOR-VALUE* SECLASS-WITHOUT OPTIMIZE-VAR-LIST
  2285.   )  )
  2286. #Y(#:TOP-LEVEL-FORM-186 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-COMPILER-LET
  2287.    REMOVE-OLD-DEFINITIONS
  2288.    #Y(C-COMPILER-LET
  2289.       #119Y(00 00 01 00 00 07 3A 01 03 96 00 01 67 01 D7 2F 03 0E 01 57 74 D9 2F 03 0E 01 57 74 01
  2290.             02 8F 02 3F 90 02 8A 03 25 9A 56 1F 28 9A 56 74 8B 03 22 9A 56 57 1F 1D 9A 56 57 57 1B
  2291.             17 9A 56 74 80 01 9A 56 57 74 30 5C 14 80 00 1A 10 90 02 80 01 00 1A 74 C5 4D 06 DB 90
  2292.             06 2F 05 4E 7F 02 8E 02 41 A8 6E 43 A8 31 43 13 63 00 04 DC 0E 01 57 57 76 35 01 11 18
  2293.             01 19 05
  2294.            )
  2295.       C-FORM *FORM* 2. TEST-LIST 0. C-ERROR "Illegal syntax in COMPILER-LET: ~S" PROGN
  2296.   )  )
  2297. #Y(#:TOP-LEVEL-FORM-187-1 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) C-BLOCK
  2298.    REMOVE-OLD-DEFINITIONS
  2299.    #Y(C-BLOCK
  2300.       #140Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 A7 8A 03 0A C3 4D 05 D9 AB 2F 03 4E 79 00
  2301.             DA 0E 06 58 10 06 67 07 6B 08 DE 67 0A E0 AA E1 E2 37 01 6E 82 E3 5F E4 5F E5 67 06 6A
  2302.             08 11 E5 67 06 E7 5F E8 67 07 6A 0C 14 AC 99 76 0E 15 58 10 15 EB 0E 00 57 57 76 6B 17
  2303.             DA AC ED 8A 2A 1B 67 06 F3 30 A8 DA EE A9 D6 6E 2A A9 AF 5C 02 14 2C 03 1D 16 01 11 16
  2304.             02 11 19 02 DA EE A9 D6 6E 2A EF B3 6B 1B B0 77 03 AA F1 B1 5C 04 1A 60
  2305.            )
  2306.       *FORM* 2. TEST-LIST C-ERROR "Block name must be a symbol, not ~S" BLOCK *STACKZ* *FOR-VALUE*
  2307.       MAKE-LABEL :FNODE *FUNC* :LABEL :CONSVAR :NAME :SPECIALP :CLOSUREP :STACKZ MAKE-VAR :USED-FAR
  2308.       :FOR-VALUE MAKE-BLOCK *BENV* PROGN C-FORM 5. ANODE BLOCK-OPEN NEW-CONST (BLOCK-CLOSE)
  2309.       MK-ANODE 0.
  2310.   )  )
  2311. #Y(#:TOP-LEVEL-FORM-187-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-RETURN-FROM
  2312.    REMOVE-OLD-DEFINITIONS
  2313.    #Y(C-RETURN-FROM
  2314.       #211Y(00 00 00 00 00 01 67 00 D6 D7 2C 03 03 0E 00 57 74 A7 8A 03 0A C4 4D 05 DA AB 2F 04 4E
  2315.             79 00 A7 6B 06 8F 00 23 DD A8 8A 2E 80 42 98 1F 80 9F 0E 00 57 57 74 EE 6C 0A E2 EF A9
  2316.             E2 AC 6B 1B 77 02 5C 02 14 2C 03 12 19 04 DC A9 2F 04 19 03 E2 E3 A9 E4 67 10 DD AE D7
  2317.             31 2A 75 DD AF DE 6E 2A 77 04 E6 DD AE D6 6E 2A 77 02 5C 03 1A 55 0E 00 57 57 74 DD A9
  2318.             DE 6E 2A 6C 0A DD A9 E0 6E 2A 0E 0C 21 4C 0E 13 1B 30 67 0C 1A 1C 03 18 1A 32 A9 E9 A9
  2319.             DE 6E 2A 37 03 6D B7 E9 A9 DE AA 31 2B 16 01 E9 A8 EA 7D 2A 00 A7 DD AB E0 31 2A 22 60
  2320.             16 01 DD A9 EB 60 31 2B E2 EC A9 DD AC DE 8B 2A 4B 00 14 E2 AD 77 02 77 01 32 02 20 58
  2321.             1A FF 74 F1 2E 1D 19 03
  2322.            )
  2323.       *FORM* 2. 3. TEST-LIST C-ERROR "Block name must be a symbol, not ~S" BENV-SEARCH
  2324.       "RETURN-FROM block ~S is impossible from here." BLOCK 6. C-FORM 1. *FUNC* RETURN-FROM (T . T)
  2325.       UNWIND *STACKZ* JMP MK-ANODE *NO-CODE* FNODE 19. 5. (T . T) ((VALUES0)) ALL (T . T) NEW-CONST
  2326.       C-RETURN-FROM COMPILER-ERROR
  2327.   )  )
  2328. #Y(#:TOP-LEVEL-FORM-188 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-TAGBODY
  2329.    REMOVE-OLD-DEFINITIONS
  2330.    #Y(C-TAGBODY
  2331.       #302Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 75 01 02 8F 02 21 90 02 98 20 15 A7 8B 03 04 8E
  2332.             00 80 A9 A7 8A 05 80 A4 C4 4D 05 DA AB 2F 04 4E 16 01 7F 02 8E 02 5F A8 6E 43 A8 6E 43
  2333.             3F 02 16 03 41 02 DB 0E 07 58 10 07 DD 67 09 DF AD E0 E1 37 01 6E 82 E2 5F E3 5F E4 67
  2334.             07 6A 08 10 E4 67 07 E6 B4 6E 41 37 07 C6 F8 6D 19 6A 0A 12 E8 9E 73 00 99 76 0E 14 58
  2335.             10 14 5F EA 0E 00 75 B2 B2 8F 02 1F 90 02 98 1F 80 4E A7 5F 6C 16 AC EC A9 ED 6E 2A 2F
  2336.             19 FB A7 80 06 16 01 16 01 7F 02 8E 02 61 AB 7D 43 04 16 03 EF AD F0 6E 2A 6E 41 DB 8C
  2337.             01 2E 38 0E 1F 1C 06 A8 F5 7E 02 20 01 EF A8 AA 2C 03 21 16 02 11 16 01 11 19 03 A7 80
  2338.             02 5F 6B 03 80 01 1A FF 59 9A 1F 41 A7 90 03 89 FE FF BA 7F 02 90 01 7F 02 80 05 1A FF
  2339.             AF EF AD F0 6E 2A A7 6E 41 DB 5F 1A 14 B4 AB AA 6F 01 01 B7 37 06 03 1C F7 6E 59 6E 3D
  2340.             80 00 81 01 A8 AA 8D 01 2B 66 A7 31 43 16 01 F6 67 07 EF AA 77 02 30 A8 F2 A9 9A 78 02
  2341.             AC F3 32 02 20 58 FA 16 03 1A FF 8D
  2342.            )
  2343.       *FORM* 1. TEST-LIST MAKE-LABEL C-ERROR "Only numbers and symbols are valid tags, not ~S" 0.
  2344.       *STACKZ* :FNODE *FUNC* :LABELLIST :CONSVAR :NAME :SPECIALP :CLOSUREP :STACKZ MAKE-VAR
  2345.       :USED-FAR MAKE-TAGBODY #.#'VECTOR *GENV* (NIL) C-FORM ANODE 2. SECLASS-OR-2 TAGBODY 5.
  2346.       #.#'EQL TAGBODY-OPEN ((TAGBODY-CLOSE-NIL)) *FOR-VALUE* ((NIL)) MK-ANODE
  2347.   )  )
  2348. #Y(#:TOP-LEVEL-FORM-189 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-GO
  2349.    REMOVE-OLD-DEFINITIONS
  2350.    #Y(C-GO
  2351.       #214Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 A7 8B 03 03 8E 00 08 A7 8A 05 04 D8
  2352.             A8 2F 04 A7 2E 05 41 02 8F 01 1A DC A9 8A 2E 37 99 1F 80 A0 DF EF DF AB 6B 1B AB 77 03
  2353.             5C 01 14 2C 03 11 19 04 DB AA 2F 04 19 04 DF E0 E1 67 0D DC AD E3 6E 2A CF 78 03 E5 AB
  2354.             DC AE D6 6E 2A 6D 94 77 02 5C 02 1A 58 DC A9 DD 6E 2A 0E 09 21 5B E7 0E 13 1B 80 4F DC
  2355.             AA E9 6E 2A A7 6E 41 E7 1A 10 15 16 02 1A 18 A9 A8 6F 01 01 AE 88 FE 72 81 00 A7 A9 8D
  2356.             01 2B 6F AD AA 30 16 99 16 03 F6 67 09 1A 18 AA EA A9 EB 6E 2A 37 03 6D B7 EA A9 EB AA
  2357.             31 2B 16 01 EA A8 EC 7D 2A 00 A7 DC AC DD 31 2A 22 60 16 01 DF ED EE DF AD AC 77 03 77
  2358.             02 2C 03 11 19 05 F1 2E 1D 19 04
  2359.            )
  2360.       *FORM* 2. TEST-LIST "Tag must be a symbol or a number, not ~S" C-ERROR GENV-SEARCH
  2361.       "GO to tag ~S is impossible from here." TAGBODY 1. *FUNC* GO (T . T) UNWIND *STACKZ* 3. (NIL)
  2362.       JMP MK-ANODE 0. *NO-CODE* 5. FNODE 8. 19. (T . T) (VALUES0) (T . T) NEW-CONST C-GO
  2363.       COMPILER-ERROR
  2364.   )  )
  2365. #Y(#:TOP-LEVEL-FORM-190 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FUNCTION
  2366.    REMOVE-OLD-DEFINITIONS
  2367.    #Y(C-FUNCTION
  2368.       #254Y(00 00 00 00 00 01 67 00 D6 D7 2C 03 03 0E 00 57 75 0E 00 57 74 8E 01 80 CD A7 85 04 80
  2369.             C8 A7 2E 05 41 03 A9 DB 37 03 88 B3 37 A9 23 14 80 5D A9 23 17 80 5E A9 24 1C 80 78 E2
  2370.             A9 8B 2E 80 69 E0 F2 F3 E2 AC F4 31 2A 14 77 02 5C 01 14 2C 03 13 19 06 E2 E3 9F 59 14
  2371.             E4 E0 B1 77 02 2C 04 10 1A 66 0E 07 1C 17 AA 88 51 13 AA 67 08 DE 37 02 88 B3 0A AA 67
  2372.             0A DE 37 02 30 B7 0F 0A E0 E1 AC 88 01 50 E2 AD 6B 11 77 02 D2 58 1A 40 EA AB 2F 16 19
  2373.             06 E0 ED E2 AB 6B 19 77 02 EF E2 AC 6B 19 77 02 03 1B 5D 03 1A FF A4 F5 A9 F4 6E 2A 2E
  2374.             21 19 06 61 22 2E 23 19 06 9C 1A 22 0E 25 1B 03 0E 26 54 10 25 8F 05 04 AB 84 04 6D 67
  2375.             27 61 28 A8 F4 7D 2A 00 67 29 31 89 0F 29 14 2F 2A 14 91 04 6C 2B 2E 2C 11 19 04 67 00
  2376.             30 9C 74 98 1F 09 90 00 24 24 04 98 57 20 43 61 2D A8 2F 16 19 04
  2377.            )
  2378.       *FORM* 2. 3. TEST-LIST FUNCTION-NAME-P FENV-SEARCH (NIL) *COMPILING-FROM-FILE*
  2379.       *KNOWN-FUNCTIONS* #.#'EQUAL *UNKNOWN-FUNCTIONS* FUNCTION (T) CONST :VALUE :FORM MAKE-CONST
  2380.       MAKE-FUNNAME-CONST ((SYMBOL-FUNCTION)) MK-ANODE MACRO
  2381.       "~S is not a function. It is a locally defined macro." C-ERROR GLOBAL (T) NEW-CONST (PUSH)
  2382.       ((SVREF)) LOCAL (NIL) FCONST 1. VAR C-VAR C-FUNCTION COMPILER-ERROR LAMBDA *NO-CODE*
  2383.       *FOR-VALUE* *FUNC* FNODE *ANONYMOUS-COUNT* SYMBOL-SUFFIX C-LAMBDABODY C-FNODE-FUNCTION
  2384.       "Only symbols and lambda expressions are function names, not ~S"
  2385.   )  )
  2386. #Y(#:TOP-LEVEL-FORM-191 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  2387.    C-%GENERIC-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS
  2388.    #Y(C-%GENERIC-FUNCTION-LAMBDA
  2389.       #50Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1B 03 0E 04 54 10 03 67 05 DB A8 D6 7D 2A 00 67
  2390.            07 31 89 0F 07 14 6C 08 0E 00 75 5F 60 6A 04 09 2E 0A 11 19 01
  2391.           )
  2392.       *FORM* 1. TEST-LIST *NO-CODE* *FOR-VALUE* *FUNC* FNODE *ANONYMOUS-COUNT* SYMBOL-SUFFIX
  2393.       C-LAMBDABODY C-FNODE-FUNCTION
  2394.   )  )
  2395. #Y(#:TOP-LEVEL-FORM-192 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  2396.    %OPTIMIZE-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS MACRO
  2397.    #Y(%OPTIMIZE-FUNCTION-LAMBDA
  2398.       #34Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 0F 9A 57 75 D7 D8 D9 9B 76 77 02 C5 5D 02 19 04
  2399.            A9 2E 01 19 03
  2400.           )
  2401.       2. MACRO-CALL-ERROR CONS FUNCTION LAMBDA (NIL)
  2402.   )  )
  2403. #Y(#:TOP-LEVEL-FORM-193 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  2404.    C-%OPTIMIZE-FUNCTION-LAMBDA REMOVE-OLD-DEFINITIONS
  2405.    #Y(C-%OPTIMIZE-FUNCTION-LAMBDA
  2406.       #124Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1B 03 0E 04 54 10 03 0E 00 57 74 6D 9E 67 05 DB
  2407.             A8 DC 7D 2A 00 67 08 31 89 0F 08 14 6C 09 0E 00 57 75 01 02 AB 6A 05 0A 6B 0B 5F A9 1A
  2408.             0C 90 00 A7 CC 55 14 80 02 16 01 7F 00 98 20 71 16 01 A7 7C A3 00 DC 0E 0D 58 10 0D E3
  2409.             AB 5C 02 10 00 2D 0F 12 02 14 E5 E6 AB D6 6E 2A E6 AA D6 6E 2A 6C 12 AB E8 AB D4 78 03
  2410.             2C 03 15 16 04 11 19 01
  2411.            )
  2412.       *FORM* 2. TEST-LIST *NO-CODE* *FOR-VALUE* *FUNC* FNODE 1. *ANONYMOUS-COUNT* SYMBOL-SUFFIX
  2413.       C-LAMBDABODY C-FNODE-FUNCTION GONE *STACKZ* QUOTE C-QUOTE %OPTIMIZE-FUNCTION-LAMBDA ANODE
  2414.       SECLASS-OR-2 (PUSH) ((CONS)) MK-ANODE
  2415.   )  )
  2416. #Y(#:TOP-LEVEL-FORM-194-1 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) C-FLET
  2417.    REMOVE-OLD-DEFINITIONS
  2418.    #Y(C-FLET
  2419.       #336Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 0E 00 57 74 01 02 8F 02 20 90 02
  2420.             98 1F 0A 90 00 85 04 05 98 57 20 80 FD CA 4D 07 E0 E1 AC 2C 03 0A 4E 16 01 7F 02 8E 02
  2421.             60 A8 6E 43 A8 6E 43 3F 02 16 03 41 02 67 0D 0E 0D 10 0D 0E 0E 10 0E 0E 0F 10 0F D8 0E
  2422.             0D 58 0F 0D 5F 0E 0E 58 0F 0E 67 0D 67 0E B4 B4 01 03 8F 04 80 4A 90 04 80 00 90 03 DB
  2423.             A8 E5 6E 2A 8A 84 80 C7 A7 6B 13 80 02 DC 0E 0D 58 0F 0D E9 37 01 6E 82 EA 5F EB 5F EC
  2424.             60 ED 5F EE 5F EF 67 0D F0 67 0E 6A 10 1C A8 77 01 99 76 80 02 A7 80 04 16 01 16 01 91
  2425.             04 7F 04 66 04 8E 04 FF B6 A9 6E 43 A9 6E 43 F2 67 1E 9C 76 31 43 73 00 3F 03 16 05 41
  2426.             03 98 10 1E 95 1F 9E 36 00 F5 0E 00 57 57 76 6B 21 AD AD 6C 22 E1 AE AA 77 01 6F 02 20
  2427.             6B 23 B0 6C 24 A9 B2 B4 6A 03 25 95 26 B2 B2 6A 03 27 AC 61 28 67 0D 62 1A 67 29 77 04
  2428.             77 02 6F 03 20 6A 03 2A 8F 01 0A B1 DC 30 A8 B0 A9 A4 76 30 A8 AF 2E 2B 15 16 02 11 16
  2429.             05 12 03 19 04 67 05 DB A8 DC 7D 2A 00 90 01 6C 08 91 01 6C 09 90 01 80 03 A7 80 02 16
  2430.             01 1A FE F1 A7 77 01 E6 A9 2F 12 76 80 01 1A FF 5B
  2431.            )
  2432.       *FORM* 2. TEST-LIST 0. FUNCTION-NAME-P *FUNC* FNODE 1. SYMBOL-SUFFIX C-LAMBDABODY C-ERROR
  2433.       "Illegal function definition syntax in ~S: ~S" FLET *STACKZ* *VENVC* *VENV* 9. :VALUE
  2434.       MAKE-CONST C-FNODE-FUNCTION :NAME :SPECIALP :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ
  2435.       :VENVC MAKE-VAR #.#'VECTOR *FENV* PUSH-*VENV* PROGN C-FORM CHECKING-MOVABLE-VAR-LIST
  2436.       ANODELIST-SECLASS-OR SECLASS-WITHOUT C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND
  2437.       *FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
  2438.   )  )
  2439. #Y(#:TOP-LEVEL-FORM-194-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) C-LABELS
  2440.    REMOVE-OLD-DEFINITIONS
  2441.    #Y(C-LABELS
  2442.       #410Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 67 04 0E 04 10 04 0E 05 10 05 0E
  2443.             06 10 06 D8 0E 04 58 0F 04 5F 0E 05 58 0F 05 67 04 67 05 0E 00 57 74 01 05 8F 05 21 90
  2444.             05 98 1F 0A 90 00 85 07 05 98 57 20 80 5F 03 17 4D 07 ED EA AC 2C 03 17 4E 16 01 7F 05
  2445.             8E 05 5F AB 6E 43 AB 6E 43 AB 6E 43 AB 6E 43 AB 6E 43 3F 05 16 06 41 05 AB A8 5F 8F 02
  2446.             11 90 02 80 00 90 01 80 00 91 02 7F 02 66 02 8E 02 6F 67 19 80 00 EF A8 31 43 36 00 16
  2447.             03 10 19 95 1B 9F 36 00 95 1C AD AD AD 6F 02 17 5F A8 B0 1A 80 64 90 00 80 05 DD 0E 04
  2448.             58 0F 04 DE 37 01 6E 82 DF 5F E0 5F E1 60 E2 5F E3 5F E4 67 04 E5 67 05 6A 10 11 80 04
  2449.             67 12 E8 A8 DD 7D 2A 00 90 01 6C 14 80 03 91 00 80 02 5F EA 9A 57 74 2E 16 42 58 76 9D
  2450.             56 76 80 01 1A FF 64 16 03 1A 1D 90 01 99 1F 77 90 01 A8 F2 A9 F3 31 2A 75 6C 1F 80 04
  2451.             16 02 7F 01 7F 00 99 20 65 16 02 A7 7C A3 00 F5 0E 00 57 57 76 6B 21 B0 AA 8F 01 2B 90
  2452.             01 90 01 E8 A8 61 22 6E 2A 8B 84 13 F2 A9 61 23 60 31 2B A7 6B 24 F2 AA 61 25 AA 31 2B
  2453.             16 01 16 02 91 01 7F 01 66 01 8E 01 55 16 02 B0 A9 6C 26 EA AA AA 77 01 6F 02 20 6B 27
  2454.             B3 6C 28 A9 B6 B8 6A 03 29 95 2A B5 AE 6A 03 2B AC 61 2C 67 04 62 1E 67 2D 77 04 77 02
  2455.             6F 03 20 6A 03 2E 8F 01 0B B5 DD 30 A8 B4 A9 04 10 76 30 A8 B2 2E 2F 15 16 04 11 16 07
  2456.             12 03 19 02
  2457.            )
  2458.       *FORM* 2. TEST-LIST 0. *STACKZ* *VENVC* *VENV* FUNCTION-NAME-P 1. :NAME :SPECIALP :CONSTANTP
  2459.       :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC MAKE-VAR *FUNC* FNODE SYMBOL-SUFFIX LABELS
  2460.       ANALYZE-LAMBDALIST C-ERROR "Illegal function definition syntax in ~S: ~S" *FENV* #.#'VECTOR
  2461.       PUSH-*VENV* C-LAMBDABODY VAR 10. C-FNODE-FUNCTION PROGN C-FORM 9. 3. NEW-CONST 4.
  2462.       CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR SECLASS-WITHOUT C-MAKE-CLOSURE
  2463.       C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
  2464.   )  )
  2465. #Y(#:TOP-LEVEL-FORM-194-3 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) C-GENERIC-FLET
  2466.    REMOVE-OLD-DEFINITIONS
  2467.    #Y(C-GENERIC-FLET
  2468.       #335Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 0E 00 57 74 01 03 8F 03 20 90 03
  2469.             98 1F 0A 90 00 85 04 05 98 57 20 80 FD CA 4D 07 E0 DA AC 2C 03 0A 4E 16 01 7F 03 8E 03
  2470.             60 A9 6E 43 A9 6E 43 A9 6E 43 3F 03 16 04 41 03 67 0C 0E 0C 10 0C 0E 0D 10 0D 0E 07 10
  2471.             07 D8 0E 0C 58 0F 0C 5F 0E 0D 58 0F 0D 67 0C 67 0D B5 B5 B5 01 03 8F 05 80 46 90 05 80
  2472.             00 90 03 E3 6C 0F 80 01 E5 0E 0C 58 0F 0C E6 37 01 6E 82 E7 5F E8 5F E9 60 EA 5F EB 5F
  2473.             EC 67 0C ED 67 0D 6A 10 19 5F EF 9F 56 78 02 99 76 80 01 A7 80 03 16 01 91 05 91 05 7F
  2474.             05 66 05 66 05 8E 05 FF BA A9 6E 43 A9 6E 43 F0 67 08 9C 76 31 43 73 00 3F 03 16 06 41
  2475.             03 98 10 08 95 1C 9E 36 00 F2 0E 00 57 57 76 6B 0F AD AD 6C 1E DA AE AA 77 01 6F 02 20
  2476.             6B 1F B0 6C 20 A9 B2 B4 6A 03 21 95 22 B2 B2 6A 03 23 AC 61 24 67 0C 62 1A 67 25 77 04
  2477.             77 02 6F 03 20 6A 03 26 8F 01 0A B1 E5 30 A8 B0 A9 A4 76 30 A8 AF 2E 27 15 16 02 11 16
  2478.             05 12 03 19 05 90 00 A7 80 04 DA A8 9B 57 74 6A 03 06 80 03 DA A8 9B 57 74 9C 57 75 67
  2479.             07 67 08 6F 02 00 6A 05 09 80 02 16 01 1A FE E5
  2480.            )
  2481.       *FORM* 2. TEST-LIST 0. FUNCTION-NAME-P CLOS:GENERIC-FLET CLOS::DEFGENERIC-LAMBDALIST-CALLINFO
  2482.       *VENV* *FENV* CLOS::MAKE-GENERIC-FUNCTION-FORM C-ERROR
  2483.       "Illegal function definition syntax in ~S: ~S" *STACKZ* *VENVC* ONE C-FORM 1. :NAME :SPECIALP
  2484.       :CONSTANTP :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC MAKE-VAR GENERIC #.#'VECTOR
  2485.       PUSH-*VENV* PROGN CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR SECLASS-WITHOUT
  2486.       C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
  2487.   )  )
  2488. #Y(#:TOP-LEVEL-FORM-194-4 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-GENERIC-LABELS
  2489.    REMOVE-OLD-DEFINITIONS
  2490.    #Y(C-GENERIC-LABELS
  2491.       #338Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 D8 2F 02 67 04 0E 04 10 04 0E 05 10 05 0E
  2492.             06 10 06 D8 0E 04 58 0F 04 5F 0E 05 58 0F 05 67 04 67 05 0E 00 57 74 01 04 8F 04 21 90
  2493.             04 98 1F 0A 90 00 85 07 05 98 57 20 80 53 03 17 4D 07 ED E8 AC 2C 03 17 4E 16 01 7F 04
  2494.             8E 04 5F AA 6E 43 AA 6E 43 AA 6E 43 AA 6E 43 3F 04 16 05 41 04 AA A9 5F 8F 02 11 90 02
  2495.             80 00 90 01 80 00 91 02 7F 02 66 02 8E 02 6F 67 15 80 00 EE A8 31 43 36 00 16 03 10 15
  2496.             95 1A 9E 36 00 5F AB 1A 80 5B 90 00 A7 80 05 DD 0E 04 58 0F 04 DE 37 01 6E 82 DF 5F E0
  2497.             5F E1 60 E2 5F E3 5F E4 67 04 E5 67 05 6A 10 11 80 04 5F E7 E8 AA 9D 57 74 2C 03 14 78
  2498.             02 9D 56 76 80 03 E8 A8 9B 57 74 9C 57 75 67 06 67 15 6F 02 00 6A 05 16 80 02 16 01 1A
  2499.             FF 69 90 00 A7 F0 6C 1C 80 02 16 01 7F 00 98 20 71 16 01 A7 7C A3 00 F2 0E 00 57 57 76
  2500.             6B 1C AE A9 6C 1E E8 AA AA 77 01 6F 02 20 6B 1F B1 6C 20 A9 B4 B6 6A 03 21 95 22 B3 AE
  2501.             6A 03 23 AC 61 24 67 04 62 1C 67 25 77 04 77 02 6F 03 20 6A 03 26 8F 01 0A B3 DD 30 A8
  2502.             B2 A9 A6 76 30 A8 B0 2E 27 15 16 03 11 16 06 12 03 19 02
  2503.            )
  2504.       *FORM* 2. TEST-LIST 0. *STACKZ* *VENVC* *VENV* FUNCTION-NAME-P 1. :NAME :SPECIALP :CONSTANTP
  2505.       :USEDP :REALLY-USEDP :CLOSUREP :STACKZ :VENVC MAKE-VAR GENERIC CLOS:GENERIC-LABELS
  2506.       CLOS::DEFGENERIC-LAMBDALIST-CALLINFO *FENV* CLOS::MAKE-GENERIC-FUNCTION-FORM C-ERROR
  2507.       "Illegal function definition syntax in ~S: ~S" #.#'VECTOR PUSH-*VENV* ONE C-FORM PROGN
  2508.       CHECKING-MOVABLE-VAR-LIST ANODELIST-SECLASS-OR SECLASS-WITHOUT C-MAKE-CLOSURE
  2509.       C-BIND-MOVABLE-VAR-ANODE MAPCAP UNWIND *FOR-VALUE* MK-ANODE OPTIMIZE-VAR-LIST
  2510.   )  )
  2511. #Y(#:TOP-LEVEL-FORM-195 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MACROLET
  2512.    REMOVE-OLD-DEFINITIONS
  2513.    #Y(C-MACROLET
  2514.       #75Y(00 00 01 00 00 07 3A 01 03 96 00 01 67 01 D7 2F 03 0E 01 57 74 D9 2F 03 0E 01 57 74 5F
  2515.            8F 01 13 90 01 90 00 A7 80 02 A8 6B 05 80 02 16 02 7F 01 8E 01 6D 67 06 80 00 DC A8 31
  2516.            43 36 00 10 06 AD DD 0E 01 57 57 76 35 01 11 19 04
  2517.           )
  2518.       C-FORM *FORM* 2. TEST-LIST 0. MAKE-MACRO-EXPANDERCONS *FENV* #.#'VECTOR PROGN
  2519.   )  )
  2520. #Y(#:TOP-LEVEL-FORM-196 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-SYMBOL-MACROLET
  2521.    REMOVE-OLD-DEFINITIONS
  2522.    #Y(C-SYMBOL-MACROLET
  2523.       #229Y(00 00 01 00 00 07 3A 01 03 96 00 01 67 01 D7 2F 03 0E 01 57 74 D9 2F 03 0E 01 57 75 5F
  2524.             67 05 67 06 6F 02 00 30 60 41 02 0E 07 10 07 0E 05 10 05 AD 2E 08 41 03 9A 10 09 9C 10
  2525.             0A 9E 10 0B 2D 0C 0E 01 57 74 01 02 8F 02 22 90 02 98 1F 0E 90 00 8B 03 09 98 57 1F 05
  2526.             98 57 57 1C 23 CD 4D 05 E3 AB 2F 0D 4E 16 01 7F 02 8E 02 5E A8 6E 43 A8 6E 43 3F 02 16
  2527.             03 41 02 67 09 A9 6C 0F 5F 1A 1A 90 00 80 02 98 57 74 80 01 1A 5A 83 01 00 CD 4D 07 E5
  2528.             E6 AC 2C 03 0D 4E 7F 01 A8 89 92 6D 16 02 E7 5F AA AA 1A 1B 16 03 1A 1C 90 01 99 1F 77
  2529.             90 01 A8 A8 6B 13 77 02 AC 7C A2 04 16 02 7F 01 7F 00 99 20 66 16 02 A7 7C A3 00 67 05
  2530.             77 01 32 02 21 36 00 0F 05 BE E9 04 17 76 35 01 16 02 12 03 16 03 12 02 19 04
  2531.            )
  2532.       C-FORM *FORM* 2. TEST-LIST 0. *VENV* *FENV* *DENV* PROCESS-DECLARATIONS *SPECIALS* *IGNORES*
  2533.       *IGNORABLES* PUSH-SPECIALS C-ERROR "Illegal syntax in SYMBOL-MACROLET: ~S" INTERSECTION
  2534.       "~S: symbol ~S must not be declared SPECIAL and a macro at the same time" SYMBOL-MACROLET
  2535.       #.#'VECTOR MAKE-SYMBOL-MACRO PROGN
  2536.   )  )
  2537. #Y(#:TOP-LEVEL-FORM-197 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-EVAL-WHEN
  2538.    REMOVE-OLD-DEFINITIONS
  2539.    #Y(C-EVAL-WHEN
  2540.       #93Y(00 00 01 00 00 07 3A 01 03 96 00 01 67 01 D7 2F 03 0E 01 57 74 D9 2F 03 01 02 0E 01 57
  2541.            74 5F 1A 20 7A 03 1A 1A 7A 02 1A 16 99 1A 2C 83 01 00 14 23 05 6E A7 23 06 6E A7 23 07
  2542.            04 DD A8 2F 09 7F 01 A8 89 92 67 16 02 DF 0E 01 57 57 76 8F 01 03 A7 2E 0B AB 8E 03 52
  2543.            00 14 35 01 19 05
  2544.           )
  2545.       C-FORM *FORM* 2. TEST-LIST 0. LOAD COMPILE EVAL
  2546.       "EVAL-WHEN situation must be EVAL or LOAD or COMPILE, but not ~S" C-ERROR PROGN
  2547.       C-EVAL-WHEN-COMPILE
  2548.   )  )
  2549. #Y(#:TOP-LEVEL-FORM-198 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-COND
  2550.    REMOVE-OLD-DEFINITIONS
  2551.    #Y(C-COND
  2552.       #70Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 75 8F 00 1A 90 00 98 1F 18 90 00 99 57 1B 1A DD
  2553.            A8 DC 9D 57 76 5C 03 16 02 F6 2E 09 19 01 00 1A 78 D8 A8 2F 04 16 01 1A 70 DA A8 DB 9C
  2554.            57 76 DC 9E 57 76 5C 04 16 02 1A 60
  2555.           )
  2556.       *FORM* 1. TEST-LIST "COND clause without test: ~S" C-ERROR IF PROGN COND OR C-FORM
  2557.   )  )
  2558. #Y(#:TOP-LEVEL-FORM-199 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-CASE
  2559.    REMOVE-OLD-DEFINITIONS
  2560.    #Y(C-CASE
  2561.       #449Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 01 03 AA 5F 1A 80 82 D8 A8 2F
  2562.             04 1A 80 79 79 00 1A 80 6C 7A 00 F9 1A 80 66 99 1A 1A 83 01 00 1F 66 90 00 8E 03 68 A7
  2563.             02 21 69 A7 23 05 65 5F A8 8A 08 66 A8 5C 01 14 5F 1A 39 00 2A 01 37 01 31 82 0B 00 00
  2564.             A7 69 09 01 DF 64 02 00 AE 77 02 77 01 E0 64 04 00 AE 9D 70 77 03 77 03 2E 0C 19 07 83
  2565.             01 00 14 AF DB 37 02 88 B3 06 A7 80 07 A7 80 02 7F 01 A8 89 92 69 16 02 A7 7D 43 01 16
  2566.             01 A7 9A 57 76 80 05 16 01 7F 01 A8 89 92 FF 8E 16 02 8E 00 03 DC 80 02 A9 7D 43 02 A8
  2567.             7D 43 01 F6 6E 41 DD 8C 01 2F FF 93 AA E2 6C 0C 01 02 AB 5F 1A 80 59 98 FA 16 01 1A 80
  2568.             50 E0 99 57 76 6B 0C 99 56 1F 6F 90 01 5F 6B 0E A9 77 03 80 03 16 01 1A 38 A9 6B 11 A8
  2569.             5F 1A 14 98 57 57 56 19 0B 83 01 00 A9 90 01 E7 37 02 88 B3 6E 7F 01 A8 89 92 6E 9C 19
  2570.             0B 03 15 1A 33 83 01 00 56 1B FF BB 02 10 0F E0 9C 57 76 5F 2F 0C 11 7F 01 A8 89 92 68
  2571.             16 02 A7 7D 43 00 A9 84 10 FF B7 5F 6B 0E 67 13 6B 0E 95 14 AD 8C 00 26 4B 03 16 14 EC
  2572.             AD ED AD 6F 00 17 AE 77 01 32 02 20 76 6B 19 AE EF AB 5F B0 1A 28 90 00 98 57 74 5F 90
  2573.             02 1A 0B 90 00 A7 9C 76 80 02 16 01 7F 00 98 20 72 16 01 A7 30 A3 16 01 F6 AA 7C A1 02
  2574.             16 01 7F 00 98 20 55 16 01 A7 7C A3 00 AF F0 B2 32 00 17 78 04 5F AF 1A 17 90 00 98 57
  2575.             74 99 57 57 74 F1 B2 77 02 77 03 AA 7C A1 02 16 01 7F 00 98 20 66 16 01 A7 7C A3 00 AE
  2576.             B1 AF 77 03 32 02 20 78 02 2C 03 1D 19 0B
  2577.            )
  2578.       *FORM* 1. TEST-LIST "CASE clause without objects: ~S" C-ERROR OTHERWISE #.#'EQ (T NIL) 2.
  2579.       #Y(C-CASE-IFIFY
  2580.          #73Y(01 00 00 00 00 02 8E 01 09 00 19 02 02 1A 2C 8F 01 77 D6 9A 56 74 98 1F 73 D7 5F A9
  2581.               1A 12 90 00 D8 65 00 01 D9 AA 77 02 77 03 80 02 16 01 7F 00 98 20 6B 16 01 A7 30 A3
  2582.               16 01 58 F6 DA 9C 56 57 76 91 04 68 4A 5C 04 19 02
  2583.              )
  2584.          NIL IF OR EQL QUOTE PROGN
  2585.         )
  2586.       LET PROGN C-FORM ONE MAKE-LABEL *NO-CODE* ANODE-CONSTANTP ANODE-CONSTANT-VALUE #.#'EQL
  2587.       *FOR-VALUE* EQL=EQ EQ EQL CASE #.#'THIRD ANODELIST-SECLASS-OR JMPHASH #.#'SECOND JMP MK-ANODE
  2588.   )  )
  2589. #Y(#:TOP-LEVEL-FORM-200 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FUNCALL-NOTINLINE
  2590.    REMOVE-OLD-DEFINITIONS
  2591.    #Y(C-FUNCALL-NOTINLINE
  2592.       #73Y(02 00 00 00 00 03 A8 D5 2F 01 A9 D7 6C 03 D9 0E 05 58 10 05 AC DB AC 77 02 8F 01 18 90
  2593.            01 D7 6C 03 A7 80 01 16 01 DC 80 00 D9 0E 05 58 0F 05 7F 01 8E 01 68 DD AF 6E 41 77 02
  2594.            80 00 DD DE A9 6E 43 2C 03 0A 16 02 11 19 04
  2595.           )
  2596.       0. TEST-LIST ONE C-FORM 1. *STACKZ* (FUNCALLP) (PUSH) FUNCALL (T . T) MK-ANODE
  2597.   )  )
  2598. #Y(#:TOP-LEVEL-FORM-201 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FUNCALL-INLINE
  2599.    REMOVE-OLD-DEFINITIONS
  2600.    #Y(C-FUNCALL-INLINE
  2601.       #1079Y(05 00 00 00 00 06 00 2A 01 7B 04 00 00 AA D5 2F 01 90 03 7F 04 2E 02 41 0D 8E 07 0F 8E
  2602.              06 0C 8E 05 09 8E 04 06 8E 03 03 8F 02 03 D8 2E 04 B3 6E 41 B3 6E 41 BB 6E 41 8E 0B 0B
  2603.              A7 AA AA 6F 02 33 8C 01 2E 82 65 06 10 00 1B 1E A7 AA 8D 01 2D 18 C5 4D 06 DF 62 1A 2F
  2604.              05 4E BC AA A9 6F 01 34 5F 6D 9D 7E 02 20 15 9A F6 04 10 2A 05 67 0B 0E 0C 0B 01 00 0E
  2605.              0D 0B 01 01 0E 0E 0B 01 02 0E 0F 0B 01 03 0E 10 0B 01 04 67 0B 8F 15 02 0E 0C 14 67 11
  2606.              8F 17 02 0E 0D 14 8F 18 02 0E 0E 14 8F 19 02 0E 0F 14 8E 1A 82 54 E7 62 1F 77 02 E8 67
  2607.              10 37 05 31 4A 58 10 10 A0 10 0B A2 10 0C A4 10 11 A6 10 0D 04 10 10 0E 04 12 10 0F 62
  2608.              30 60 67 0C 67 0D 6F 02 00 30 60 41 02 04 1E 2A 0D 00 10 14 00 10 15 00 10 16 01 09 00
  2609.              0B 12 00 0B 12 01 0B 12 02 0B 12 03 0B 12 04 0B 12 05 0B 12 06 0B 12 07 0B 12 08 0B 12
  2610.              09 0B 12 0A 0B 12 0B 0B 12 0C 14 01 03 BE 2E 17 41 03 15 0F 16 15 0F 15 15 0F 14 2D 18
  2611.              DC 0E 0B 58 0F 0B 5F 0E 11 58 0F 11 0E 0B F7 0E 11 F6 BD 69 19 01 62 46 8F 00 3D 8F 4D
  2612.              81 BF 90 4D 7F 4E 06 38 00 10 0C 06 3B 01 10 0D 06 3E 02 10 0E 06 41 03 10 0F 06 44 04
  2613.              10 10 B6 EF 2F 1B 12 05 14 90 02 A8 6C 1C A8 80 10 A7 80 11 A7 2E 1D 16 03 7F 00 8E 00
  2614.              43 16 01 62 45 62 45 62 45 8F 02 80 5B 06 4A 00 1C 04 8F 4F 81 81 04 4F 54 54 14 8E 00
  2615.              81 85 90 02 EF 2F 1B 14 90 04 A8 6C 1C A8 80 10 A7 80 11 A7 2E 1D A7 A9 77 02 90 04 23
  2616.              07 81 95 AA EF 6C 1B 90 05 A8 6C 1C A8 80 11 A7 80 12 A7 2E 1D A7 A9 5C 02 16 02 76 80
  2617.              0D 16 03 91 02 91 02 7F 02 66 02 66 02 8E 02 FF A5 16 03 62 42 23 07 81 66 06 47 00 1B
  2618.              81 7C 8E 4C 81 82 00 14 06 37 00 10 0C 06 3A 01 10 0D 06 3D 02 10 0E 06 40 03 10 0F 06
  2619.              43 04 10 10 B6 EF 2F 1B 12 05 14 62 44 A8 6C 1C A8 80 08 A7 80 09 A7 2E 1D 16 03 16 01
  2620.              B3 7D 43 0C B2 7D 43 0B B1 7D 43 0A B0 7D 43 09 AF 7D 43 08 AE 7D 43 07 AD 7D 43 06 62
  2621.              3A 62 3A 2F 21 41 02 66 03 66 03 61 22 04 19 76 6B 1B B4 B3 B2 B0 64 1B 01 64 1C 04 64
  2622.              1D 07 64 1E 0A B3 6F 09 20 B5 B5 6C 23 B4 B4 6C 23 B3 B3 6C 23 B1 B1 6C 23 64 1C 01 6B
  2623.              24 64 1D 04 6B 24 64 1E 07 64 1F 08 6C 23 64 1F 0A 6B 24 B4 B4 6C 23 6F 09 20 A7 AB AD
  2624.              6A 03 25 95 26 B8 B8 6A 03 27 5F B3 1A 80 F3 C5 4D 06 DB 62 1A 2F 05 4E DC A8 AB AB 6F
  2625.              02 33 6F 01 34 1A 2B 37 01 6E 82 B8 A8 77 01 7E 02 20 11 B7 5F 77 01 7E 02 20 10 B6 5F
  2626.              77 01 7E 02 20 0F 81 04 DD DE A9 77 02 77 02 80 16 16 01 81 01 A8 A8 8D 01 30 4F 16 02
  2627.              06 10 00 1C FD 52 1A FD 6D 0E 10 1A FD B4 A7 62 47 62 47 62 47 62 47 9E 33 16 01 1A FF
  2628.              15 5F AA AA AA 62 49 A0 33 16 03 1A FF 08 02 10 1E 90 05 5F 2F 1B 11 06 3A 00 10 0C 06
  2629.              3D 01 10 0D 06 40 02 10 0E 06 43 03 10 0F 06 46 04 10 10 90 5F 7F 60 EF 2F 1B 12 05 1A
  2630.              FE 52 00 1A FE 7F 06 47 00 1C FE D0 01 04 62 46 9D 33 1A FE C7 F4 62 4D 64 49 00 32 02
  2631.              20 58 1A FE 89 8E 4C 70 06 47 00 56 1A FE 7F F5 04 4D 58 1A FE 78 95 26 9A 57 36 00 1A
  2632.              0D 90 00 95 26 99 56 73 00 99 57 1B 6C 00 14 6F 02 20 AA 7C A1 02 16 01 7F 00 98 20 64
  2633.              16 01 A7 7C A3 00 95 26 B3 B3 6A 03 27 64 1D 00 95 28 64 1F 01 64 20 02 64 21 03 6A 04
  2634.              27 64 1F 04 64 20 05 64 21 07 64 22 06 64 23 08 64 24 09 6A 06 29 95 28 64 21 0A 64 22
  2635.              0B 64 23 0C 6A 04 27 95 26 B6 B6 6A 03 27 B2 61 2A 67 0B 62 43 67 2B 77 04 77 02 6F 0A
  2636.              20 61 2C B7 B6 B5 B3 64 1F 00 64 20 06 5F 64 22 08 37 07 6E 48 B5 B3 77 01 6F 09 20 6B
  2637.              2D AB 6C 2E A9 6A 03 2F 8F 02 0A AD D5 30 A8 AC AA A0 76 30 A8 AA 2E 30 15 16 11 12 03
  2638.              16 03 12 07 19 1F
  2639.             )
  2640.       1. TEST-LIST ANALYZE-LAMBDALIST C-FUNCALL-INLINE COMPILER-ERROR C-ERROR
  2641.       "Too many arguments to ~S" 0. DECLARE IGNORE "Too few arguments to ~S" *STACKZ* *VENV* *FENV*
  2642.       *BENV* *GENV* *DENV* *VENVC* INLINING
  2643.       #Y(C-FUNCALL-INLINE-1 #17Y(01 00 00 00 00 02 99 56 25 00 03 02 19 02 00 19 02)
  2644.          #S(HASH-TABLE EQ (INLINING . 1.) (IN-DEFUN . 1.) (DECLARATION . 1.))
  2645.         )
  2646.       *SPECIALS* *IGNORES* *IGNORABLES* PROCESS-DECLARATIONS PUSH-SPECIALS
  2647.       #Y(C-FUNCALL-INLINE-FINISH-USING-APPLYARG
  2648.          #196Y(05 00 00 00 00 06 07 01 01 10 01 07 01 02 10 02 07 01 03 10 03 07 01 04 10 04 07 01
  2649.                05 10 05 07 02 01 74 DB 2F 07 12 05 14 A9 C8 55 54 14 AE 6E 41 AE 6E 41 6F 02 33 AE
  2650.                6E 41 6A 03 09 DF E0 AA E1 6E 2A E0 AA E1 6E 2A 6C 0D AA AA 77 02 2C 03 0E 16 01 F6
  2651.                5C 01 0C 00 01 AC 2E 0F 41 02 15 0C 00 03 15 0C 00 02 AB 2E 0F 41 02 15 0C 00 06 15
  2652.                0C 00 05 A8 23 08 80 42 A8 77 01 2E 0F 41 02 15 0C 00 0C 15 0C 00 0B 65 00 02 2E 10
  2653.                0C 00 04 65 00 05 65 00 06 AC AC 2C 04 11 41 04 15 0C 00 09 15 0C 00 08 15 0C 00 0A
  2654.                15 0C 00 07 A8 23 08 11 65 00 0B 2E 12 0C 00 0D 19 06 01 02 3F 02 1A FF BC 00 19 06
  2655.               )
  2656.          NIL *VENV* *FENV* *BENV* *GENV* *DENV* ONE C-FORM 0. C-UNLIST APPLY-UNLIST ANODE 2.
  2657.          SECLASS-OR-2 MK-ANODE PROCESS-FIXED-VAR-LIST BIND-REQ-VARS BIND-OPT-VARS BIND-REST-VARS
  2658.         )
  2659.       ONE C-FORM BIND-MOVABLE-VAR PUSH-*VENV* *NO-CODE* LIST* LIST BIND-AUX-VARS PROGN
  2660.       CHECKING-MOVABLE-VAR-LIST CHECKING-FIXED-VAR-LIST C-MAKE-CLOSURE C-BIND-MOVABLE-VAR-ANODE
  2661.       MAPCAP C-BIND-FIXED-VAR C-BIND-WITH-SVARS UNWIND *FOR-VALUE* FUNCALL ANODELIST-SECLASS-OR
  2662.       SECLASS-WITHOUT MK-ANODE OPTIMIZE-VAR-LIST
  2663.   )  )
  2664. #Y(#:TOP-LEVEL-FORM-202 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-LOCAL-FUNCTION-CALL
  2665.    REMOVE-OLD-DEFINITIONS
  2666.    #Y(C-LOCAL-FUNCTION-CALL
  2667.       #64Y(03 00 00 00 00 04 A9 2E 00 41 06 AE 5F B2 AF AF AF AF AF AF 6A 09 01 A7 D7 37 03 88 B3
  2668.            09 DA B2 77 02 B0 2F 06 19 0B AF 5F B3 B0 B0 B0 B0 B0 5F BA 90 13 B8 B8 B8 B8 B8 6A 07
  2669.            03 2C 0A 04 19 0B
  2670.           )
  2671.       FDESCR-SIGNATURE TEST-ARGUMENT-SYNTAX (NO-KEYS STATIC-KEYS) CCLOSURE-CALL-CODE-PRODUCER
  2672.       C-DIRECT-FUNCTION-CALL FUNCTION C-FUNCALL-NOTINLINE
  2673.   )  )
  2674. #Y(#:TOP-LEVEL-FORM-203 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FUNCTION-CALL
  2675.    REMOVE-OLD-DEFINITIONS
  2676.    #Y(C-FUNCTION-CALL
  2677.       #65Y(02 00 00 00 00 03 A9 A9 6E 41 86 00 18 9A 1F 0F 90 02 24 02 0A 9A 57 1F 06 9A 57 74 84
  2678.            03 13 A9 A9 2F 07 19 03 A9 A9 5F 9D 57 56 75 60 2C 05 01 19 03 A9 D9 D9 2C 03 05 9A 57
  2679.            74 9A 76 2E 06 19 03
  2680.           )
  2681.       INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE FUNCTION FUNCTION-NAME-P 2. TEST-LIST C-FORM
  2682.       C-FUNCALL-NOTINLINE
  2683.   )  )
  2684. #Y(#:TOP-LEVEL-FORM-204 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-FUNCALL
  2685.    REMOVE-OLD-DEFINITIONS
  2686.    #Y(C-FUNCALL #23Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 2F 03 19 01) *FORM*
  2687.       2. TEST-LIST C-FUNCTION-CALL
  2688.   )  )
  2689. #Y(#:TOP-LEVEL-FORM-205 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-APPLY
  2690.    REMOVE-OLD-DEFINITIONS
  2691.    #Y(C-APPLY
  2692.       #357Y(00 00 00 00 00 01 46 00 81 59 67 01 D7 2F 03 00 2A 01 0E 01 57 74 0E 01 57 57 0B 01 00
  2693.             14 6E 41 6E 8A A8 A8 60 2C 03 04 1B 80 70 99 1F 27 90 01 24 06 22 99 57 1F 1E 99 57 74
  2694.             85 07 18 9A 2A 01 9A 57 56 0B 00 00 A9 DD DD 2C 03 03 64 00 00 85 09 80 F3 16 01 A8 EE
  2695.             6C 1A E4 0E 1B 58 10 1B 64 06 00 F1 AC 77 02 8F 01 1C 90 01 EE 6C 1A A7 80 01 9A 57 1C
  2696.             09 E4 0E 1B 58 0F 1B F2 80 01 16 01 7F 01 8E 01 64 F3 AE 77 02 80 00 F3 F4 A9 6E 43 2C
  2697.             03 20 16 02 11 16 04 47 19 01 A8 64 03 00 37 01 6D A4 64 04 00 6D 9C 9C 57 56 75 60 2C
  2698.             05 05 16 03 1A 64 67 0D 00 76 9C 33 0E 13 1C 80 5E 1A 80 4E 64 05 00 64 09 00 37 01 6D
  2699.             A4 64 0A 00 6D 9C AA 5F 2C 05 05 16 09 1A FF BD 64 04 00 8B 03 0E 64 04 00 88 52 80 76
  2700.             64 04 00 88 58 80 6F 64 04 00 67 0D E3 A8 E4 7D 2A 00 89 FF 0F E5 64 05 00 77 02 67 11
  2701.             E7 37 02 88 B3 FF A8 0E 13 1C 0D 64 04 00 67 14 E7 37 02 30 BA 57 1B 0A 64 04 00 6B 15
  2702.             EB 37 01 31 76 14 98 1F 0E DB EC 9A 76 77 02 AE 60 2C 03 04 1B FF 89 16 06 1A FF 17 A7
  2703.             9C 33 16 05 1A FF 0F A7 AE 69 0A 02 64 01 00 2E 0B 41 03 A9 E1 37 03 88 B3 FF 81 A9 23
  2704.             18 60 16 05 1A FE F2 19 01
  2705.            )
  2706.       C-APPLY *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P C-FUNCALL-INLINE FUNCTION
  2707.       FUNCTION-NAME-P 2. DECLARED-NOTINLINE
  2708.       #Y(C-APPLY-C-LOCAL-APPLY
  2709.          #83Y(01 00 00 00 00 02 A8 2E 02 41 06 8E 02 1B 65 01 01 37 01 6D A4 65 01 01 6D 9C 65 00
  2710.               01 AF AF AF AF AF AF 6A 09 03 23 04 03 00 19 08 65 01 01 37 01 6D A4 65 01 01 6D 9C
  2711.               65 00 01 AF AF AF AF AF 5F 65 00 01 90 11 B7 B7 B7 B7 B7 6A 07 05 2C 0A 06 48 01
  2712.              )
  2713.          NIL NIL FDESCR-SIGNATURE TEST-ARGUMENT-SYNTAX NO-KEYS CCLOSURE-CALL-CODE-PRODUCER
  2714.          C-DIRECT-FUNCTION-CALL
  2715.         )
  2716.       FENV-SEARCH (NIL) *FUNC* FNODE 1. IN-DEFUN *DENV* #.#'EQUAL *COMPILING-FROM-FILE*
  2717.       *INLINE-DEFINITIONS* GET-FUNNAME-SYMBOL INLINE-EXPANSION LAMBDA LOCAL ONE C-FORM *STACKZ*
  2718.       (APPLYP) (PUSH) APPLY (T . T) MK-ANODE
  2719.   )  )
  2720. #Y(#:TOP-LEVEL-FORM-206 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-PLUS
  2721.    REMOVE-OLD-DEFINITIONS
  2722.    #Y(C-PLUS
  2723.       #118Y(00 00 00 00 00 01 67 00 D6 2F 02 D8 01 02 0E 00 75 5F 1A 3C AB AA 7E 02 33 04 1A 32 9B
  2724.             1A 11 9B 25 07 12 9A 56 1A 09 C8 1A 01 C9 14 90 03 5C 02 14 2E 06 19 05 DF AB 9C 5D 02
  2725.             1A 35 83 01 00 14 85 04 08 A7 2E 05 F8 14 8A 05 49 A7 80 03 7F 01 A8 89 92 68 16 02 A8
  2726.             6E 41 A7 23 03 FF BE A7 23 01 FF BC A9 7D 43 02 AA 23 03 03 AA 80 02 DF 9B 58 14 2E 0B
  2727.             19 05
  2728.            )
  2729.       *FORM* 1. TEST-LIST 0. C-CONSTANTP C-CONSTANT-VALUE C-FORM
  2730.       #S(HASH-TABLE EQ (-1. . 8.) (1. . 5.) (0. . 1.)) 1+ 1- + C-GLOBAL-FUNCTION-CALL-FORM
  2731.   )  )
  2732. #Y(#:TOP-LEVEL-FORM-207 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MINUS
  2733.    REMOVE-OLD-DEFINITIONS
  2734.    #Y(C-MINUS
  2735.       #166Y(00 00 00 00 00 01 67 00 D6 2F 02 67 00 6E 41 D6 6F 01 2B D8 D8 01 02 8E 04 20 0E 00 57
  2736.             74 A7 85 04 08 A7 2E 05 F7 14 8A 05 0C 98 F9 16 01 8F 04 0C 0E 00 57 1A 0B 99 FA 1A 72
  2737.             8E 04 74 0E 00 57 57 14 5F 1A 36 AC AA 7E 01 34 05 1A 2C DB AB AB 5C 03 10 00 2D 07 11
  2738.             19 06 00 1A 3E AB 24 03 04 9A 57 1C 75 9C 1A 27 83 01 00 14 85 04 08 A7 2E 05 F8 14 8A
  2739.             05 4F A7 80 03 7F 01 A8 89 92 68 16 02 8F 01 49 DD AA 23 03 53 AB 24 03 06 9B 14 5C 01
  2740.             1A 07 AA AC 6F 00 34 5C 02 14 AA 6E 43 32 02 20 76 2E 09 19 06
  2741.            )
  2742.       *FORM* 2. TEST-LIST 0. C-CONSTANTP C-CONSTANT-VALUE + C-PLUS - C-GLOBAL-FUNCTION-CALL-FORM
  2743.   )  )
  2744. #Y(#:TOP-LEVEL-FORM-208 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-SVSTORE
  2745.    REMOVE-OLD-DEFINITIONS
  2746.    #Y(C-SVSTORE
  2747.       #59Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 0E 00 57 57 74 0E 00 57 57 57 74 37
  2748.            01 6E 82 37 01 6E 82 D8 A9 AD 77 02 A9 AD 77 02 77 02 D9 AC AC AC 77 04 77 03 2E 05 19
  2749.            06
  2750.           )
  2751.       *FORM* 4. TEST-LIST LET* %SVSTORE C-FORM
  2752.   )  )
  2753. #Y(#:TOP-LEVEL-FORM-209 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-EQ
  2754.    REMOVE-OLD-DEFINITIONS
  2755.    #Y(C-EQ
  2756.       #81Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 0E 00 57 57 74 A8 85 03 04 A7 84 03
  2757.            1E A8 85 03 08 A8 A8 98 F9 99 F8 16 02 A7 85 03 04 A7 85 05 19 DE A9 A9 5C 03 14 2E 08
  2758.            19 03 D9 A9 6B 05 A9 2E 05 55 14 77 02 2E 06 19 03 DC A9 5C 02 1A 66
  2759.           )
  2760.       *FORM* 3. TEST-LIST C-CONSTANTP QUOTE C-CONSTANT-VALUE C-FORM NULL
  2761.       C-GLOBAL-FUNCTION-CALL-FORM EQ
  2762.   )  )
  2763. #Y(#:TOP-LEVEL-FORM-210 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EQL=EQ
  2764.    REMOVE-OLD-DEFINITIONS
  2765.    #Y(EQL=EQ #23Y(01 00 00 00 00 02 A8 31 03 1D 0A A8 31 0A 1D 05 A8 31 18 19 02 19 02))
  2766.   )
  2767. #Y(#:TOP-LEVEL-FORM-211 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-EQL
  2768.    REMOVE-OLD-DEFINITIONS
  2769.    #Y(C-EQL
  2770.       #82Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 0E 00 57 57 74 A8 85 03 04 A7 84 03
  2771.            19 A8 85 03 06 A8 6B 05 84 07 1E A7 85 03 06 A7 6B 05 84 07 14 DF 2E 0B 19 03 D9 A9 6B
  2772.            05 A9 6B 05 6D FE 77 02 2E 06 19 03 DD A9 A9 5C 03 10 00 2D 09 11 19 03
  2773.           )
  2774.       *FORM* 3. TEST-LIST C-CONSTANTP QUOTE C-CONSTANT-VALUE C-FORM EQL=EQ EQ C-EQ EQL
  2775.       C-GLOBAL-FUNCTION-CALL
  2776.   )  )
  2777. #Y(#:TOP-LEVEL-FORM-212 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EQUAL=EQL
  2778.    REMOVE-OLD-DEFINITIONS
  2779.    #Y(EQUAL=EQL #23Y(01 00 00 00 00 02 A8 31 03 1D 0A A8 31 05 1D 05 A8 31 18 19 02 19 02))
  2780.   )
  2781. #Y(#:TOP-LEVEL-FORM-213 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-EQUAL
  2782.    REMOVE-OLD-DEFINITIONS
  2783.    #Y(C-EQUAL
  2784.       #59Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 0E 00 57 57 74 A8 85 03 06 A8 6B 04
  2785.            84 05 0F A7 85 03 06 A7 6B 04 84 05 05 DD 2E 09 19 03 DB A9 A9 5C 03 10 00 2D 07 11 19
  2786.            03
  2787.           )
  2788.       *FORM* 3. TEST-LIST C-CONSTANTP C-CONSTANT-VALUE EQUAL=EQL EQL C-EQL EQUAL
  2789.       C-GLOBAL-FUNCTION-CALL
  2790.   )  )
  2791. #Y(#:TOP-LEVEL-FORM-214 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAP-ON-CARS-INNER
  2792.    REMOVE-OLD-DEFINITIONS
  2793.    #Y(C-MAP-ON-CARS-INNER
  2794.       #65Y(03 00 01 00 00 0A 3A 01 0D 79 01 8E 02 0B AB A9 6E 43 35 01 19 05 8F 02 75 90 02 37 01
  2795.            6E 82 D5 D6 AA 77 02 D7 AA D8 AD 77 02 77 02 77 01 B1 B1 91 0A AE A3 76 68 4F 77 03 D9
  2796.            B0 77 02 5C 04 19 07
  2797.           )
  2798.       IF CONSP LET CAR RETURN-FROM
  2799.   )  )
  2800. #Y(#:TOP-LEVEL-FORM-215 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAP-ON-CARS
  2801.    REMOVE-OLD-DEFINITIONS
  2802.    #Y(C-MAP-ON-CARS
  2803.       #141Y(03 00 00 00 00 04 00 2A 02 7B 04 00 00 7B 03 00 01 98 2A 01 37 01 31 82 0B 00 00 37 01
  2804.             6E 82 5F AC 1A 0C 90 00 37 01 6E 82 80 02 16 01 7F 00 98 20 71 16 01 A7 7C A3 00 37 01
  2805.             6E 82 D5 64 04 00 C1 76 77 01 D7 AC D8 D9 AE B4 6F 01 17 DA AE B2 69 06 01 B2 B2 6A 03
  2806.             07 DD 5F B3 1A 11 90 00 A7 DE A9 77 02 77 02 AA 7C A1 02 16 01 7F 00 98 20 6C 16 01 A7
  2807.             30 A3 16 01 76 DF B2 77 02 77 05 77 03 77 03 E0 64 07 00 77 02 5C 04 19 09
  2808.            )
  2809.       LET (NIL) BLOCK LET* #.#'LIST TAGBODY
  2810.       #Y(C-MAP-ON-CARS-1
  2811.          #29Y(01 00 00 00 00 02 D6 65 00 01 65 01 01 D7 65 01 02 9E 78 02 65 00 01 77 03 5C 03 19
  2812.               02
  2813.              )
  2814.          NIL SETQ %FUNCALL
  2815.         )
  2816.       C-MAP-ON-CARS-INNER SETQ CDR GO LIST-NREVERSE
  2817.   )  )
  2818. #Y(#:TOP-LEVEL-FORM-216 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAP-ON-LISTS
  2819.    REMOVE-OLD-DEFINITIONS
  2820.    #Y(C-MAP-ON-LISTS
  2821.       #160Y(03 00 00 00 00 04 37 01 6E 82 37 01 6E 82 5F AB 1A 0C 90 00 37 01 6E 82 80 02 16 01 7F
  2822.             00 98 20 71 16 01 A7 7C A3 00 37 01 6E 82 D5 AB C1 76 77 01 D7 AC D8 D9 AE B3 6F 01 17
  2823.             DA AE DB DC 5F B3 1A 0C 90 00 DD A8 77 02 80 02 16 01 7F 00 98 20 71 16 01 A7 30 A3 16
  2824.             01 76 DE B4 77 02 77 03 DF B4 B9 E0 BA 04 0F 78 02 B7 77 03 77 03 DF 5F B4 1A 11 90 00
  2825.             A7 E1 A9 77 02 77 02 AA 7C A1 02 16 01 7F 00 98 20 6C 16 01 A7 30 A3 16 01 76 E2 B3 77
  2826.             02 77 06 77 03 77 03 E3 AE 77 02 5C 04 19 08
  2827.            )
  2828.       LET (NIL) BLOCK LET* #.#'LIST TAGBODY IF OR ATOM RETURN-FROM SETQ %FUNCALL CDR GO
  2829.       LIST-NREVERSE
  2830.   )  )
  2831. #Y(#:TOP-LEVEL-FORM-217 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPC
  2832.    REMOVE-OLD-DEFINITIONS
  2833.    #Y(C-MAPC
  2834.       #154Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 6E 41 86 03 05 E4 2E 10 19 01
  2835.             37 01 6E 82 A7 0E 00 57 57 57 76 37 01 6E 82 5F A9 1A 0C 90 00 37 01 6E 82 80 02 16 01
  2836.             7F 00 98 20 71 16 01 A7 7C A3 00 37 01 6E 82 D9 AC 0E 00 57 57 74 77 02 77 01 DA AC DB
  2837.             DC AE B1 6F 01 17 DD AE DE B2 B2 6A 03 0A E0 5F B3 1A 11 90 00 A7 E1 A9 77 02 77 02 AA
  2838.             7C A1 02 16 01 7F 00 98 20 6C 16 01 A7 30 A3 16 01 76 E2 B2 77 02 77 05 77 03 77 03 AE
  2839.             5C 04 16 04 F6 2E 0E 19 01
  2840.            )
  2841.       *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P LET BLOCK LET* #.#'LIST TAGBODY
  2842.       #Y(C-MAPC-1 #16Y(01 00 00 00 00 02 D5 0E 01 57 74 9B 5D 02 19 02) %FUNCALL *FORM*)
  2843.       C-MAP-ON-CARS-INNER SETQ CDR GO C-FORM MAPC C-GLOBAL-FUNCTION-CALL
  2844.   )  )
  2845. #Y(#:TOP-LEVEL-FORM-218 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPL
  2846.    REMOVE-OLD-DEFINITIONS
  2847.    #Y(C-MAPL
  2848.       #191Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 6E 41 86 03 05 E7 2E 13 19 01
  2849.             37 01 6E 82 A7 0E 00 57 57 57 76 37 01 6E 82 5F A9 1A 0C 90 00 37 01 6E 82 80 02 16 01
  2850.             7F 00 98 20 71 16 01 A7 7C A3 00 37 01 6E 82 D9 AC 0E 00 57 57 74 77 02 77 01 DA AC DB
  2851.             DC AE B1 6F 01 17 DD AE DE DF 5F B3 1A 0C 90 00 E0 A8 77 02 80 02 16 01 7F 00 98 20 71
  2852.             16 01 A7 30 A3 16 01 76 E1 B4 77 02 77 03 E2 0E 00 57 74 A4 78 02 E3 5F B4 1A 11 90 00
  2853.             A7 E4 A9 77 02 77 02 AA 7C A1 02 16 01 7F 00 98 20 6C 16 01 A7 30 A3 16 01 76 E5 B3 77
  2854.             02 77 06 77 03 77 03 AE 5C 04 16 04 F6 2E 11 19 01
  2855.            )
  2856.       *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P LET BLOCK LET* #.#'LIST TAGBODY IF OR ATOM
  2857.       RETURN-FROM %FUNCALL SETQ CDR GO C-FORM MAPL C-GLOBAL-FUNCTION-CALL
  2858.   )  )
  2859. #Y(#:TOP-LEVEL-FORM-219 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPCAR
  2860.    REMOVE-OLD-DEFINITIONS
  2861.    #Y(C-MAPCAR
  2862.       #61Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1C 12 0E 00 57 74 0E 00 57 75 6E 41 86 06 11 DF
  2863.            2E 0B 19 01 D9 0E 00 57 58 10 00 2D 05 11 19 01 DC 0E 00 57 74 0E 00 57 75 6A 03 08 2E
  2864.            09 19 01
  2865.           )
  2866.       *FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC INLINE-CALLABLE-FUNCTION-P CONS C-MAP-ON-CARS
  2867.       C-FORM MAPCAR C-GLOBAL-FUNCTION-CALL
  2868.   )  )
  2869. #Y(#:TOP-LEVEL-FORM-220 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPLIST
  2870.    REMOVE-OLD-DEFINITIONS
  2871.    #Y(C-MAPLIST
  2872.       #61Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1C 12 0E 00 57 74 0E 00 57 75 6E 41 86 06 11 DF
  2873.            2E 0B 19 01 D9 0E 00 57 58 10 00 2D 05 11 19 01 DC 0E 00 57 74 0E 00 57 75 6A 03 08 2E
  2874.            09 19 01
  2875.           )
  2876.       *FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL INLINE-CALLABLE-FUNCTION-P CONS C-MAP-ON-LISTS
  2877.       C-FORM MAPLIST C-GLOBAL-FUNCTION-CALL
  2878.   )  )
  2879. #Y(#:TOP-LEVEL-FORM-221 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPCAN
  2880.    REMOVE-OLD-DEFINITIONS
  2881.    #Y(C-MAPCAN
  2882.       #45Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 6E 41 86 03 05 DC 2E 08 19 01
  2883.            D9 0E 00 57 74 0E 00 57 75 6A 03 05 2E 06 19 01
  2884.           )
  2885.       *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P NRECONC C-MAP-ON-CARS C-FORM MAPCAN
  2886.       C-GLOBAL-FUNCTION-CALL
  2887.   )  )
  2888. #Y(#:TOP-LEVEL-FORM-222 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPCON
  2889.    REMOVE-OLD-DEFINITIONS
  2890.    #Y(C-MAPCON
  2891.       #45Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 00 57 74 0E 00 57 75 6E 41 86 03 05 DC 2E 08 19 01
  2892.            D9 0E 00 57 74 0E 00 57 75 6A 03 05 2E 06 19 01
  2893.           )
  2894.       *FORM* 3. TEST-LIST INLINE-CALLABLE-FUNCTION-P NRECONC C-MAP-ON-LISTS C-FORM MAPCON
  2895.       C-GLOBAL-FUNCTION-CALL
  2896.   )  )
  2897. #Y(#:TOP-LEVEL-FORM-223 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPCAP
  2898.    REMOVE-OLD-DEFINITIONS
  2899.    #Y(C-MAPCAP
  2900.       #61Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1C 12 0E 00 57 74 0E 00 57 75 6E 41 86 06 11 DF
  2901.            2E 0B 19 01 D9 0E 00 57 58 10 00 2D 05 11 19 01 DC 0E 00 57 74 0E 00 57 75 6A 03 08 2E
  2902.            09 19 01
  2903.           )
  2904.       *FORM* 3. TEST-LIST *FOR-VALUE* MAPC C-MAPC INLINE-CALLABLE-FUNCTION-P REVAPPEND
  2905.       C-MAP-ON-CARS C-FORM MAPCAP C-GLOBAL-FUNCTION-CALL
  2906.   )  )
  2907. #Y(#:TOP-LEVEL-FORM-224 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-MAPLAP
  2908.    REMOVE-OLD-DEFINITIONS
  2909.    #Y(C-MAPLAP
  2910.       #61Y(00 00 00 00 00 01 67 00 D6 2F 02 0E 03 1C 12 0E 00 57 74 0E 00 57 75 6E 41 86 06 11 DF
  2911.            2E 0B 19 01 D9 0E 00 57 58 10 00 2D 05 11 19 01 DC 0E 00 57 74 0E 00 57 75 6A 03 08 2E
  2912.            09 19 01
  2913.           )
  2914.       *FORM* 3. TEST-LIST *FOR-VALUE* MAPL C-MAPL INLINE-CALLABLE-FUNCTION-P REVAPPEND
  2915.       C-MAP-ON-LISTS C-FORM MAPLAP C-GLOBAL-FUNCTION-CALL
  2916.   )  )
  2917. #Y(#:TOP-LEVEL-FORM-225
  2918.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  2919.    C-TYPEP-ALIST1 "~S redefines the constant ~S. Its old value was ~S."
  2920.    (DEFCONSTANT C-TYPEP-ALIST1
  2921.     '#1=((ARRAY . ARRAYP) (ATOM . ATOM) (BIT-VECTOR . BIT-VECTOR-P) (CHARACTER . CHARACTERP)
  2922.          (COMMON . COMMONP) (COMPILED-FUNCTION . COMPILED-FUNCTION-P) (COMPLEX . COMPLEXP)
  2923.          (CONS . CONSP) (DOUBLE-FLOAT . DOUBLE-FLOAT-P) (FIXNUM . FIXNUMP) (FLOAT . FLOATP)
  2924.          (FUNCTION . FUNCTIONP) (HASH-TABLE . HASH-TABLE-P) (INTEGER . INTEGERP)
  2925.          (KEYWORD . KEYWORDP) (LIST . LISTP) (LONG-FLOAT . LONG-FLOAT-P) (NULL . NULL)
  2926.          (NUMBER . NUMBERP) (PACKAGE . PACKAGEP) (PATHNAME . PATHNAMEP)
  2927.          (RANDOM-STATE . RANDOM-STATE-P) (RATIONAL . RATIONALP) (READTABLE . READTABLEP)
  2928.          (REAL . REALP) (SEQUENCE . SEQUENCEP) (SHORT-FLOAT . SHORT-FLOAT-P)
  2929.          (SIMPLE-ARRAY . SIMPLE-ARRAY-P) (SIMPLE-BIT-VECTOR . SIMPLE-BIT-VECTOR-P)
  2930.          (SIMPLE-STRING . SIMPLE-STRING-P) (SIMPLE-VECTOR . SIMPLE-VECTOR-P)
  2931.          (SINGLE-FLOAT . SINGLE-FLOAT-P)
  2932.          (CLOS:STANDARD-GENERIC-FUNCTION . CLOS::GENERIC-FUNCTION-P)
  2933.          (CLOS:STANDARD-OBJECT . CLOS::STD-INSTANCE-P) (STREAM . STREAMP) (STRING . STRINGP)
  2934.          (SYMBOL . SYMBOLP) (VECTOR . VECTORP)
  2935.    )    )
  2936.    WARN #1#
  2937.   )
  2938. #Y(#:TOP-LEVEL-FORM-226
  2939.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  2940.    C-TYPEP-ALIST2 "~S redefines the constant ~S. Its old value was ~S."
  2941.    (DEFCONSTANT C-TYPEP-ALIST2
  2942.     '#1=((BIGNUM (X) (AND (INTEGERP X) (NOT (FIXNUMP X)))) (BIT (X) (OR (EQL X 0.) (EQL X 1.)))
  2943.          (NIL (X) (DECLARE (IGNORE X)) NIL) (RATIO (X) (AND (RATIONALP X) (NOT (INTEGERP X))))
  2944.          (STANDARD-CHAR (X) (AND (CHARACTERP X) (STANDARD-CHAR-P X)))
  2945.          (STRING-CHAR (X) (AND (CHARACTERP X) (STRING-CHAR-P X)))
  2946.          (STRUCTURE (X)
  2947.           (LET ((Y (TYPE-OF X)))
  2948.            (AND (SYMBOLP Y) (GET Y 'DEFSTRUCT-DESCRIPTION) (%STRUCTURE-TYPE-P Y X))
  2949.          ))
  2950.          (T (X) (DECLARE (IGNORE X)) T)
  2951.    )    )
  2952.    WARN #1#
  2953.   )
  2954. #Y(#:TOP-LEVEL-FORM-227 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-TYPEP-ARRAY
  2955.    REMOVE-OLD-DEFINITIONS
  2956.    #Y(C-TYPEP-ARRAY #19Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 A7 2B 00 01 19 03)
  2957.       #Y(C-TYPEP-ARRAY-1
  2958.          #137Y(01 00 02 00 01 00 3A 03 02 C1 F9 3A 02 02 C1 F8 D7 65 00 01 AD 77 02 AC 23 01 27 D8
  2959.                D9 AF 77 02 DA AF 6B 06 77 02 77 03 5C 01 14 AC 23 01 16 AC 8A 05 15 DC AD 6E 41 DD
  2960.                B1 77 02 77 03 DE 5F AF 1A 34 00 1A 65 00 1A 39 DC AD DD B1 77 02 77 03 5C 01 1A 2D
  2961.                00 1A 14 90 00 A7 23 01 77 DC DA A9 77 02 DF B6 AE 77 03 77 03 5C 01 14 81 04 AA 7C
  2962.                A1 02 16 01 7F 00 98 20 5E 16 01 A7 30 A3 16 02 58 14 32 02 20 5D 02 19 05
  2963.               )
  2964.          NIL * AND EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE EQL ARRAY-RANK 0.
  2965.          ARRAY-DIMENSION
  2966.   )  )  )
  2967. #Y(#:TOP-LEVEL-FORM-228 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-TYPEP-VECTOR
  2968.    REMOVE-OLD-DEFINITIONS
  2969.    #Y(C-TYPEP-VECTOR #19Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 A7 2B 00 01 19 03)
  2970.       #Y(C-TYPEP-VECTOR-1
  2971.          #43Y(01 00 01 00 01 00 3A 02 02 C1 F8 D7 65 00 01 AC 77 02 AB 23 01 12 D8 D9 AE C5 78 02
  2972.               DB AE 77 02 77 03 5C 01 5D 02 19 04 00 1A 79
  2973.              )
  2974.          NIL * AND EQL ARRAY-DIMENSION (0.) QUOTE
  2975.   )  )  )
  2976. #Y(#:TOP-LEVEL-FORM-229 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-TYPEP-NUMBER
  2977.    REMOVE-OLD-DEFINITIONS
  2978.    #Y(C-TYPEP-NUMBER #23Y(02 00 00 00 00 03 00 2A 02 7B 03 00 00 7B 02 00 01 A7 2B 00 01 19 04)
  2979.       #Y(C-TYPEP-NUMBER-1
  2980.          #147Y(01 00 02 00 01 00 3A 03 02 C1 F9 3A 02 02 C1 F8 D7 65 00 02 AD 77 02 AC 23 01 80 55
  2981.                65 00 02 AD 35 01 1B 80 4F 9D 1F 80 4F 9D 57 1B 80 4A 65 00 02 90 06 35 01 1C 80 40
  2982.                D9 9E 56 14 AF 77 03 5C 01 14 AC 23 01 35 65 00 02 AD 35 01 1B 30 9D 1F 0D 9D 57 1B
  2983.                09 65 00 02 90 06 35 01 1B 24 CB 14 DB 65 00 01 65 00 01 65 00 01 B1 2C 06 07 DD 00
  2984.                4F 00 1A 4D D8 9E 1A 43 C5 1A 64 00 1A 0D DE 9E 1A 03 DF 9E 56 14 B0 77 03 5C 01 14
  2985.                32 02 20 5D 02 19 05
  2986.               )
  2987.          NIL * AND <= < "~S: argument to ~S must be *, ~S or a list of ~S: ~S" TYPEP C-WARN C-TYPEP
  2988.          >= > "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
  2989.   )  )  )
  2990. #Y(#:TOP-LEVEL-FORM-230
  2991.    #144Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 DA 2E 06 76 DC DD 2E 06 76
  2992.          DE CA 76 E0 E1 2E 0D 76 E3 CF 76 E5 E5 E6 2F 12 76 E8 D4 76 EA 03 16 76 EC 03 18 76 EE EE
  2993.          EF 2F 12 76 F0 F0 F1 2F 12 76 F2 F2 F3 2F 12 76 F4 F4 F5 2F 12 76 61 21 61 21 61 22 2F 12
  2994.          76 61 23 61 23 61 24 2F 12 76 61 25 61 25 61 26 2F 12 76 61 27 61 28 2E 0D 76 61 29 61 2A
  2995.          2E 0D 76 61 2B 61 2C 2E 0D 76 61 2D 61 2E 2E 0D 76 77 14 31 75 C0 19 01
  2996.         )
  2997.    C-TYPEP-ALIST3 "~S redefines the constant ~S. Its old value was ~S."
  2998.    (DEFCONSTANT C-TYPEP-ALIST3
  2999.     `((ARRAY . ,(C-TYPEP-ARRAY 'ARRAYP)) (SIMPLE-ARRAY . ,(C-TYPEP-ARRAY 'SIMPLE-ARRAY-P))
  3000.       (VECTOR .
  3001.        ,#'(LAMBDA (X &OPTIONAL (EL-TYPE '*) (SIZE '*) &REST ILLEGAL-ARGS)
  3002.            (DECLARE (IGNORE ILLEGAL-ARGS))
  3003.            `#1=(AND (VECTORP ,X)
  3004.                 ,@(IF (EQ EL-TYPE '*) 'NIL
  3005.                    `#2=((EQUAL (ARRAY-ELEMENT-TYPE ,X) ',(UPGRADED-ARRAY-ELEMENT-TYPE EL-TYPE)))
  3006.                   )
  3007.                 ,@(IF (EQ SIZE '*) 'NIL `#3=((EQL (ARRAY-DIMENSION ,X 0.) ',SIZE)))
  3008.       )   )    )
  3009.       (SIMPLE-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-VECTOR-P))
  3010.       (COMPLEX .
  3011.        ,#'(LAMBDA (X &OPTIONAL (RTYPE '*) (ITYPE RTYPE) &REST ILLEGAL-ARGS)
  3012.            (DECLARE (IGNORE ILLEGAL-ARGS))
  3013.            `#4=(AND (COMPLEXP ,X) ,@(IF (EQ RTYPE '*) 'NIL `#5=((TYPEP (REALPART ,X) ',RTYPE)))
  3014.                 ,@(IF (EQ ITYPE '*) 'NIL `#6=((TYPEP (IMAGPART ,X) ',ITYPE)))
  3015.       )   )    )
  3016.       (INTEGER . ,(C-TYPEP-NUMBER 'INTEGER 'INTEGERP))
  3017.       (MOD .
  3018.        ,#'(LAMBDA (X &OPTIONAL N &REST ILLEGAL-ARGS) (DECLARE (IGNORE ILLEGAL-ARGS))
  3019.            (UNLESS (INTEGERP N) (C-WARN #7="~S: argument to MOD must be an integer: ~S" 'TYPEP N)
  3020.             (THROW 'C-TYPEP NIL)
  3021.            )
  3022.            `#8=(AND (INTEGERP ,X) (NOT (MINUSP ,X)) (< ,X ,N))
  3023.       )   )
  3024.       (SIGNED-BYTE .
  3025.        ,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS) (DECLARE (IGNORE ILLEGAL-ARGS))
  3026.            (UNLESS (OR (EQ N '*) (INTEGERP N))
  3027.             (C-WARN #9="~S: argument to SIGNED-BYTE must be an integer or * : ~S" 'TYPEP N)
  3028.             (THROW 'C-TYPEP NIL)
  3029.            )
  3030.            `#10=(AND (INTEGERP ,X) ,@(IF (EQ N '*) 'NIL `#11=((< (INTEGER-LENGTH ,X) ,N))))
  3031.       )   )
  3032.       (UNSIGNED-BYTE .
  3033.        ,#'(LAMBDA (X &OPTIONAL (N '*) &REST ILLEGAL-ARGS) (DECLARE (IGNORE ILLEGAL-ARGS))
  3034.            (UNLESS (OR (EQ N '*) (INTEGERP N))
  3035.             (C-WARN #12="~S: argument to UNSIGNED-BYTE must be an integer or * : ~S" 'TYPEP N)
  3036.             (THROW 'C-TYPEP NIL)
  3037.            )
  3038.            `#13=(AND (INTEGERP ,X) (NOT (MINUSP ,X))
  3039.                  ,@(IF (EQ N '*) 'NIL `#14=((<= (INTEGER-LENGTH ,X) ,N)))
  3040.       )   )     )
  3041.       (REAL . ,(C-TYPEP-NUMBER 'REAL 'REALP)) (RATIONAL . ,(C-TYPEP-NUMBER 'RATIONAL 'RATIONALP))
  3042.       (FLOAT . ,(C-TYPEP-NUMBER 'FLOAT 'FLOATP))
  3043.       (SHORT-FLOAT . ,(C-TYPEP-NUMBER 'SHORT-FLOAT 'SHORT-FLOAT-P))
  3044.       (SINGLE-FLOAT . ,(C-TYPEP-NUMBER 'SINGLE-FLOAT 'SINGLE-FLOAT-P))
  3045.       (DOUBLE-FLOAT . ,(C-TYPEP-NUMBER 'DOUBLE-FLOAT 'DOUBLE-FLOAT-P))
  3046.       (LONG-FLOAT . ,(C-TYPEP-NUMBER 'LONG-FLOAT 'LONG-FLOAT-P))
  3047.       (STRING . ,(C-TYPEP-VECTOR 'STRINGP)) (SIMPLE-STRING . ,(C-TYPEP-VECTOR 'SIMPLE-STRING-P))
  3048.       (BIT-VECTOR . ,(C-TYPEP-VECTOR 'BIT-VECTOR-P))
  3049.       (SIMPLE-BIT-VECTOR . ,(C-TYPEP-VECTOR 'SIMPLE-BIT-VECTOR-P))
  3050.    ) )
  3051.    WARN ARRAY ARRAYP C-TYPEP-ARRAY SIMPLE-ARRAY SIMPLE-ARRAY-P VECTOR
  3052.    #Y(#:TOP-LEVEL-FORM-230-1
  3053.       #73Y(01 00 02 00 01 00 3A 03 02 C0 F9 3A 02 02 C0 F8 D6 D7 AD 77 02 AC 23 00 2A D8 D9 AF 77
  3054.            02 DA AF 6B 06 77 02 77 03 5C 01 14 AC 23 00 19 DC DD B0 C9 78 02 DA AF 77 02 77 03 5C
  3055.            01 14 32 02 20 5D 02 19 05 00 1A 62 00 1A 72
  3056.           )
  3057.       * AND VECTORP EQUAL ARRAY-ELEMENT-TYPE QUOTE UPGRADED-ARRAY-ELEMENT-TYPE EQL ARRAY-DIMENSION
  3058.       #15=(0.)
  3059.      )
  3060.    SIMPLE-VECTOR SIMPLE-VECTOR-P C-TYPEP-VECTOR COMPLEX
  3061.    #Y(#:TOP-LEVEL-FORM-230-2
  3062.       #70Y(01 00 02 00 01 00 3A 03 02 C0 F9 3A 02 02 9B F8 D6 D7 AD 77 02 AC 23 00 27 D8 D9 AF 77
  3063.            02 DA AF 77 02 77 03 5C 01 14 AC 23 00 18 D8 DB B0 77 02 DA AF 77 02 77 03 5C 01 14 32
  3064.            02 20 5D 02 19 05 00 1A 63 00 1A 72
  3065.           )
  3066.       * AND COMPLEXP TYPEP REALPART QUOTE IMAGPART
  3067.      )
  3068.    INTEGER INTEGERP C-TYPEP-NUMBER MOD
  3069.    #Y(#:TOP-LEVEL-FORM-230-3
  3070.       #42Y(01 00 01 00 01 00 3C 02 A9 8B 09 15 D9 DA AC 77 02 DB DC AE 77 02 77 02 DD AE AE 77 03
  3071.            5C 04 19 04 D5 D6 AB 2C 03 02 D8 00 4F
  3072.           )
  3073.       #7# TYPEP C-WARN C-TYPEP AND INTEGERP NOT MINUSP <
  3074.      )
  3075.    SIGNED-BYTE
  3076.    #Y(#:TOP-LEVEL-FORM-230-4
  3077.       #54Y(01 00 01 00 01 00 3A 02 02 C0 F8 A9 23 00 04 A9 8B 09 17 DA DB AC 77 02 AB 23 00 17 DC
  3078.            DD AE 77 02 AD 77 03 5C 01 5D 02 19 04 D6 D7 AB 2C 03 03 D9 00 4F 00 1A 70
  3079.           )
  3080.       * #9# TYPEP C-WARN C-TYPEP AND INTEGERP < INTEGER-LENGTH
  3081.      )
  3082.    UNSIGNED-BYTE
  3083.    #Y(#:TOP-LEVEL-FORM-230-5
  3084.       #61Y(01 00 01 00 01 00 3A 02 02 C0 F8 A9 23 00 04 A9 8B 09 1E DA DB AC 77 02 DC DD AE 77 02
  3085.            77 02 AC 23 00 17 DE DF AF 77 02 AE 77 03 5C 01 5D 03 19 04 D6 D7 AB 2C 03 03 D9 00 4F
  3086.            00 1A 70
  3087.           )
  3088.       * #12# TYPEP C-WARN C-TYPEP AND INTEGERP NOT MINUSP <= INTEGER-LENGTH
  3089.      )
  3090.    REAL REALP RATIONAL RATIONALP FLOAT FLOATP SHORT-FLOAT SHORT-FLOAT-P SINGLE-FLOAT SINGLE-FLOAT-P
  3091.    DOUBLE-FLOAT DOUBLE-FLOAT-P LONG-FLOAT LONG-FLOAT-P STRING STRINGP SIMPLE-STRING SIMPLE-STRING-P
  3092.    BIT-VECTOR BIT-VECTOR-P SIMPLE-BIT-VECTOR SIMPLE-BIT-VECTOR-P
  3093.   )
  3094. #Y(#:TOP-LEVEL-FORM-231 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) C-TYPEP
  3095.    REMOVE-OLD-DEFINITIONS
  3096.    #Y(C-TYPEP
  3097.       #547Y(00 00 00 00 00 01 67 00 D6 D6 2C 03 02 0E 00 57 74 0E 00 57 57 74 A7 85 03 82 03 A7 6B
  3098.             04 5F A8 8A 03 81 B3 99 1F 06 90 01 8A 03 80 CB A8 85 15 81 EA A8 6B 16 E9 37 01 6E 76
  3099.             9A 22 81 DE EC ED AC 77 02 EE EF E5 AD 2E 16 14 77 02 5C 02 14 5C 02 14 77 03 2E 11 19
  3100.             05 57 F6 14 AB 77 02 2E 06 19 05 57 F6 14 AB 5C 02 10 00 DD AC 6E 7E 6C 09 AE 77 01 5F
  3101.             AD 5F 2C 05 0A 11 19 05 57 F6 37 01 6E 82 A8 A8 72 01 A8 77 01 A8 77 02 E1 99 76 AE 5C
  3102.             02 10 00 E2 AF 6E 7E 6C 09 B1 77 01 5F AD 5F 2C 05 0A 11 19 08 E4 AB E5 AA AC 77 01 35
  3103.             01 1A FF 9C E8 E5 AA 77 02 9D 1A FF 96 EC ED AC 77 02 EE EF E5 9E 1A FF 82 F3 E4 9F 57
  3104.             74 2C 03 1F F0 00 4F 9C 57 74 9D 57 74 8B 03 6C A7 AF 77 02 2E 06 16 08 1A 80 E7 61 21
  3105.             AE 91 06 03 22 76 03 23 5D 03 10 00 2D 24 1A 31 03 1B 4D 81 1F 90 04 24 1C 06 AB 6E 41
  3106.             23 1D 4A 90 04 23 20 59 90 04 24 25 80 69 AB 6E 41 24 1D 80 62 61 25 AE E5 9F 57 74 77
  3107.             02 5C 03 10 00 2D 26 11 16 07 1A 80 9E 61 27 E4 AF E5 A0 57 74 77 02 77 03 77 02 2E 06
  3108.             16 07 1A 80 89 37 01 6E 82 61 2A A8 B0 77 02 77 01 90 07 5F 91 09 1A 10 90 00 E4 AE E5
  3109.             AA 77 02 77 03 80 02 16 01 7F 00 98 20 6D 16 01 A7 30 A3 16 01 76 5C 03 F6 2E 11 16 07
  3110.             1A 80 51 90 04 24 27 07 AB 6E 41 23 1D FF A7 90 04 23 28 FF B6 90 04 23 29 FF B0 90 04
  3111.             67 0B 37 03 7C BA 03 1C 32 57 F9 37 01 6E 82 AB A8 9F 57 73 01 A8 77 01 A8 77 02 E1 99
  3112.             76 B1 5C 02 10 00 61 2B 90 0B 6E 7E 6C 09 B4 77 01 5F AD 5F 2C 05 0A 11 16 0A 18 0E 19
  3113.             01 4E 16 02 1A 80 47 A8 DA 37 03 7C BA 00 1B FE 77 A8 DC 37 03 7C BA 00 1B FE 77 A8 67
  3114.             0B 37 03 7C BA 00 1B FE 86 A8 E3 37 01 7D 76 00 1B FE A6 A8 E7 37 01 8A 76 FE AA A8 E9
  3115.             37 01 7D 76 00 1C 0B 14 85 15 07 A7 6B 16 9A 21 FE 9F 16 02 E4 2E 2C 19 03
  3116.            )
  3117.       *FORM* 3. TEST-LIST C-CONSTANTP C-CONSTANT-VALUE #.C-TYPEP-ALIST1 C-GLOBAL-FUNCTION-CALL-FORM
  3118.       #.C-TYPEP-ALIST2 #:TYPEP SYMBOL-SUFFIX C-FUNCALL-INLINE C-TYPEP-ALIST3 LAMBDA #:TYPEP
  3119.       DEFTYPE-EXPANDER TYPEP QUOTE C-FORM DEFSTRUCT-DESCRIPTION %STRUCTURE-TYPE-P CLOS::CLASS
  3120.       CLOS::CLASS-P CLOS:CLASS-NAME CLOS::SUBCLASSP CLOS:CLASS-OF LOAD-TIME-VALUE CLOS:FIND-CLASS
  3121.       C-TYPEP SATISFIES 2. "~S: argument to SATISFIES must be a symbol: ~S" C-WARN MEMBER CASE (T)
  3122.       ((T NIL)) C-CASE EQL C-EQL NOT AND OR LET #:TYPEP C-GLOBAL-FUNCTION-CALL
  3123.   )  )
  3124. #Y(#:TOP-LEVEL-FORM-232 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *FNODE-FIXUP-TABLE*)
  3125.    *FNODE-FIXUP-TABLE*
  3126.   )
  3127. #Y(#:TOP-LEVEL-FORM-233 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PASS2
  3128.    REMOVE-OLD-DEFINITIONS
  3129.    #Y(PASS2
  3130.       #95Y(01 00 00 00 00 02 99 10 00 67 00 D6 A8 D7 7D 2A 00 D8 A8 31 2E 16 01 1B 04 00 11 19 02
  3131.            2D 04 14 67 00 D6 A8 DA 31 2A 16 01 1C 04 A7 2E 06 F6 A7 2E 07 F6 67 00 A8 6B 08 2F 09
  3132.            16 01 67 00 D6 A8 DF 7D 2A 00 5F 1A 0E 83 01 00 D6 A8 8B 2E 04 A7 27 FF B3 7F 01 A8 89
  3133.            92 6E 00 16 02 1A FF BB
  3134.           )
  3135.       *FUNC* FNODE 2. ANODE COMPILE-TO-LAP 20. CONST-TO-LOADV INSERT-COMBINED-LAPS ASSEMBLE-LAP
  3136.       CREATE-FUN-OBJ 17.
  3137.   )  )
  3138. #Y(#:TOP-LEVEL-FORM-234 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CODE-PARTS*)
  3139.    *CODE-PARTS*
  3140.   )
  3141. #Y(#:TOP-LEVEL-FORM-235 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CODE-POSITIONS*)
  3142.    *CODE-POSITIONS*
  3143.   )
  3144. #Y(#:TOP-LEVEL-FORM-236 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CONST-INDEX
  3145.    REMOVE-OLD-DEFINITIONS
  3146.    #Y(CONST-INDEX
  3147.       #98Y(02 00 01 00 00 09 3A 01 03 0E 00 F7 D6 A9 D7 6E 2A D6 AA D8 6E 2A D6 AB D9 6E 2A 8E 02
  3148.            29 AD 77 01 D6 AD D7 AA 31 2B 16 01 AC 77 01 D6 AD D8 AA 31 2B 16 01 1A 29 99 56 1B 25
  3149.            8F 05 22 A8 AD 30 A8 1A 1C 7F 02 7F 01 90 02 AE 88 FE 69 81 00 9A 57 1B 70 A9 AE 77 01
  3150.            30 AA A8 AD 77 01 30 AA 15 19 06
  3151.           )
  3152.       *FUNC* FNODE 17. 18. 16.
  3153.   )  )
  3154. #Y(#:TOP-LEVEL-FORM-237 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) KCONST-INDEX
  3155.    REMOVE-OLD-DEFINITIONS
  3156.    #Y(KCONST-INDEX
  3157.       #54Y(02 00 01 00 00 09 3A 01 03 0E 00 F7 AA 8B 7F 1B D6 A9 D7 6E 2A D6 AA D8 6E 2A 8F 00 0C
  3158.            90 00 9E 21 11 7F 00 81 01 8E 00 74 16 02 AA AA AA 2C 03 04 19 04 99 19 06
  3159.           )
  3160.       *FUNC* FNODE 9. 14. CONST-INDEX
  3161.   )  )
  3162. #Y(#:TOP-LEVEL-FORM-238 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) KCONST-INDEX-1
  3163.    REMOVE-OLD-DEFINITIONS
  3164.    #Y(KCONST-INDEX-1 #20Y(01 00 00 00 00 02 D5 A9 D6 6E 2A D5 AA D7 6E 2A 2F 03 19 02) CONST 1. 2.
  3165.       KCONST-INDEX
  3166.   )  )
  3167. #Y(#:TOP-LEVEL-FORM-239 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-CONST-CODE
  3168.    REMOVE-OLD-DEFINITIONS
  3169.    #Y(MAKE-CONST-CODE
  3170.       #28Y(02 00 00 00 00 03 8F 02 0D A9 02 21 0C D7 AA AA 6C 03 5C 02 19 03 C0 19 03 C1 19 03)
  3171.       (NIL) (T) CONST KCONST-INDEX
  3172.   )  )
  3173. #Y(#:TOP-LEVEL-FORM-240 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BCONST-INDEX
  3174.    REMOVE-OLD-DEFINITIONS
  3175.    #Y(BCONST-INDEX
  3176.       #36Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 D6 A9 D7 6E 2A D6 AA D8 6E 2A 1A 04 7F 00 81 01 90
  3177.            00 9D 22 77 99 19 05
  3178.           )
  3179.       *FUNC* FNODE 5. 6.
  3180.   )  )
  3181. #Y(#:TOP-LEVEL-FORM-241 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GCONST-INDEX
  3182.    REMOVE-OLD-DEFINITIONS
  3183.    #Y(GCONST-INDEX
  3184.       #36Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 D6 A9 D7 6E 2A D6 AA D8 6E 2A 1A 04 7F 00 81 01 90
  3185.            00 9D 22 77 99 19 05
  3186.           )
  3187.       *FUNC* FNODE 7. 8.
  3188.   )  )
  3189. #Y(#:TOP-LEVEL-FORM-242 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FCONST-INDEX
  3190.    REMOVE-OLD-DEFINITIONS
  3191.    #Y(FCONST-INDEX
  3192.       #45Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 A9 D6 AA D7 6E 2A 37 03 88 B3 10 A9 5F 6C 03 A9 A8
  3193.            77 02 0E 04 58 0F 04 15 19 03 A9 5F 2F 03 19 03
  3194.           )
  3195.       *FUNC* FNODE 17. CONST-INDEX *FNODE-FIXUP-TABLE*
  3196.   )  )
  3197. #Y(#:TOP-LEVEL-FORM-243 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CODE-PART*) *CODE-PART*
  3198.   )
  3199. #Y(#:TOP-LEVEL-FORM-244 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CODE-INDEX*)
  3200.    *CODE-INDEX*
  3201.   )
  3202. #Y(#:TOP-LEVEL-FORM-245 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *DEAD-CODE*) *DEAD-CODE*
  3203.   )
  3204. #Y(#:TOP-LEVEL-FORM-246 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *LABEL-SUBST*)
  3205.    *LABEL-SUBST*
  3206.   )
  3207. #Y(#:TOP-LEVEL-FORM-247 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CURRENT-VALUE*)
  3208.    *CURRENT-VALUE*
  3209.   )
  3210. #Y(#:TOP-LEVEL-FORM-248 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *CURRENT-VARS*)
  3211.    *CURRENT-VARS*
  3212.   )
  3213. #Y(#:TOP-LEVEL-FORM-249 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) LABEL-SUBST
  3214.    REMOVE-OLD-DEFINITIONS
  3215.    #Y(LABEL-SUBST
  3216.       #66Y(02 00 00 00 00 03 A9 6D 4F 5F 1A 1A 67 00 AA 32 01 01 56 1A 0A 83 01 00 AA AC A9 8A 09
  3217.            6E 9A 75 37 03 30 AE 7F 01 A8 89 92 6B 16 02 A8 AA 6D 4F AA 6D 4F 6F 02 21 30 53 A9 5F
  3218.            30 53 A9 D6 31 7B 19 03
  3219.           )
  3220.       *CODE-PARTS* CODE-PART
  3221.   )  )
  3222. #Y(#:TOP-LEVEL-FORM-250 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FINISH-CODE-PART
  3223.    REMOVE-OLD-DEFINITIONS
  3224.    #Y(FINISH-CODE-PART
  3225.       #33Y(00 00 00 00 00 01 67 00 2E 01 67 00 67 02 37 01 30 18 67 03 31 89 0F 03 14 67 04 37 01
  3226.            30 18 19 01
  3227.           )
  3228.       *CODE-PART* SIMPLIFY *CODE-PARTS* *CODE-INDEX* *CODE-POSITIONS*
  3229.   )  )
  3230. #Y(#:TOP-LEVEL-FORM-251 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EMIT-JMP
  3231.    REMOVE-OLD-DEFINITIONS
  3232.    #Y(EMIT-JMP
  3233.       #34Y(01 00 00 00 00 02 D5 A9 67 01 77 03 0E 02 58 0F 02 67 03 A7 AA 30 4F 76 AA A8 30 53 16
  3234.            02 2D 04 19 02
  3235.           )
  3236.       JMP *CURRENT-VALUE* *CODE-PART* *CODE-INDEX* FINISH-CODE-PART
  3237.   )  )
  3238. #Y(#:TOP-LEVEL-FORM-252 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TRAVERSE-ANODE
  3239.    REMOVE-OLD-DEFINITIONS
  3240.    #Y(TRAVERSE-ANODE
  3241.       #1534Y(01 00 00 00 00 02 A8 5F 1A 85 EB 00 0F 00 1A 24 67 01 A7 A9 2F 02 A7 A9 AA AA 67 03 37
  3242.              03 6D AE 30 B8 0F 03 16 01 1A 0C 0E 00 1B 5F 67 01 8A 03 5F A7 2E 04 98 0F 01 67 05 6D
  3243.              14 A8 DB A9 31 7A 16 01 1A 85 79 DE A8 DF 31 2A 1A 82 48 A7 8A 03 57 DE A8 8A 2E 6F E0
  3244.              CC 1A 85 96 83 01 00 1F 6D 0E 00 1B 85 8F 67 03 91 01 37 03 30 B2 98 56 25 0E 85 7B 98
  3245.              57 74 E4 A8 E5 6E 2A 67 08 5F 1A 1A 16 04 1A 85 6F D3 1A 29 83 01 00 E4 A8 8B 2E 08 E4
  3246.              A8 E5 6E 2A 9B 21 68 7F 01 A8 89 92 6A 16 02 A7 E4 AA E6 6E 2A 6C 12 0E 01 58 0F 01 8F
  3247.              00 55 D4 0F 07 99 1A 83 29 E4 99 57 74 2E 15 1A 0E E4 99 57 74 2E 16 1A 06 E4 99 57 74
  3248.              2E 17 14 5C 02 1A 84 F3 D3 1A 15 E4 A8 2E 15 1A 80 A9 EE AA EF 6E 2A E4 A8 E5 6E 2A 8F
  3249.              00 69 D4 0F 07 F0 A8 8A 2E 64 A7 E4 AA E6 6E 2A 2F 12 16 02 1A 80 8C F1 EE AB E5 7D 2A
  3250.              03 14 5F 6C 1D 5C 02 1A 80 7C F5 AA AA AA 5C 04 16 03 1A 80 71 8E 02 72 61 21 A9 9A 1A
  3251.              11 A9 A9 A9 2C 03 1F 41 03 8E 01 6C 61 22 AA A9 31 89 14 5C 03 16 03 1A 80 4F 61 25 A9
  3252.              A9 5C 03 16 02 1A 80 44 98 57 74 99 57 57 74 9A 57 57 57 74 A9 67 08 ED 37 02 88 B3 3B
  3253.              EE AA DF 8A 2A FF 7A 00 0F 07 EE AA E6 8A 2A FF 92 EE AA F3 8A 2A FF AF A7 EE AB 61 23
  3254.              6E 2A 2F 24 41 02 8E 01 FF B9 61 26 99 14 5C 02 16 02 14 0E 01 58 0F 01 A9 5C 01 1A 80
  3255.              90 16 03 1A 84 58 61 27 EE AB E5 7D 2A 03 14 5F 6C 1D 5C 02 1A 80 70 61 28 AA AA AA 5C
  3256.              04 16 03 1A 80 64 8E 02 71 61 29 A9 9A 1A 11 A9 A9 A9 2C 03 1F 41 03 8E 01 6C 61 2A AA
  3257.              A9 31 89 14 5C 03 16 03 1A 80 42 61 2B A9 A9 5C 03 16 02 1A 38 98 57 74 99 57 57 74 9A
  3258.              57 57 57 74 A9 67 08 ED 37 02 88 B3 34 EE AA E6 8A 2A FF 9B EE AA F3 8A 2A FF BA A7 EE
  3259.              AB 61 23 6E 2A 2F 24 41 02 8E 01 45 61 2C A8 5C 02 16 02 14 0E 01 58 0F 01 A9 0E 08 58
  3260.              0F 08 16 03 1A 83 C6 16 03 1A 83 C1 F1 A8 5F 6C 1D 77 02 0E 01 58 0F 01 00 0F 07 A7 5C
  3261.              01 1A 2E 98 57 74 A7 67 08 ED 37 02 89 B3 60 16 01 1A 83 9C 98 57 74 A7 67 08 ED 37 02
  3262.              88 B3 18 61 27 A8 5F 6C 1D 77 02 0E 01 58 0F 01 A7 0E 08 58 0F 08 16 01 1A 83 78 16 01
  3263.              1A 83 73 03 2D 1A 81 8B 98 57 74 99 57 57 74 9A 57 57 57 74 2C 03 2F 14 27 FD 6D 1A 83
  3264.              58 98 57 74 5F 6B 30 9A 56 25 31 19 03 32 1A 06 03 32 1A 09 03 33 14 A9 9A 1A 05 03 34
  3265.              14 A8 9B 14 5C 03 1A 01 00 14 0E 01 58 0F 01 67 35 9B 57 74 A8 A8 30 4F 76 A8 A8 30 53
  3266.              16 03 67 35 A7 A9 30 4F 76 A9 A8 30 53 16 02 2D 36 67 05 6D 14 A8 DB A9 31 7A 16 01 98
  3267.              0F 01 16 02 1A 82 FB 16 01 1A 82 F6 90 00 A7 23 37 75 A7 23 38 71 16 01 1A 82 54 16 01
  3268.              1A 82 E2 16 01 1A 82 5E 37 05 9D 57 56 F9 6D 63 99 57 57 57 75 9A 57 57 74 5F 1A 14 83
  3269.              01 00 74 91 01 AB 37 06 6E 59 A8 AD A9 30 65 16 02 7F 01 A8 89 92 68 16 02 61 3C A9 5F
  3270.              6C 3D AA 9D 57 57 57 78 03 0E 01 58 0F 01 16 02 98 57 57 75 5F 1A 12 83 01 00 67 35 A7
  3271.              A9 30 4F 76 A9 A8 30 53 16 02 7F 01 A8 89 92 6A 16 02 2D 36 1A 81 FD 98 57 74 99 57 57
  3272.              74 1A 33 61 25 A9 A9 5C 03 16 02 1A 3C A7 9A 56 75 2F 24 41 02 8E 01 6B 61 26 A8 5C 02
  3273.              16 02 1A 28 03 3F 1A 24 67 3E F0 A8 DF 31 2A 16 01 1B 71 03 40 1A 15 7F 01 99 56 1C 7A
  3274.              99 56 20 4F 90 01 0E 3E 21 61 E0 61 41 2F 0D 14 0E 01 58 0F 01 74 61 42 89 FF 0D D3 0F
  3275.              07 61 43 5F 2F 44 14 5C 01 1A 03 00 0F 07 0F 08 16 02 1A 82 05 61 45 99 57 74 6B 15 9A
  3276.              57 57 74 5C 03 1A 81 C7 61 46 99 57 74 9A 57 57 74 6B 2E 5C 03 1A 81 A9 98 56 14 99 57
  3277.              74 6B 2E 5C 02 1A 81 9C 03 47 1A 81 97 98 57 74 99 57 57 57 74 EE A9 F3 8B 2A 05 E0 61
  3278.              48 2F 0D A7 EE AA 61 23 6E 2A 2F 24 41 02 8F 01 05 E0 61 49 2F 0D 90 04 A8 9E 57 57 57
  3279.              57 78 02 0E 01 58 0F 01 90 04 24 4A 11 0E 01 74 AC 6D 95 A8 A8 30 4F 76 A8 A8 30 53 16
  3280.              03 00 0F 07 0F 08 16 04 1A 81 7E 98 57 57 74 61 4B 9A 57 74 6B 2E A9 77 03 0E 01 58 0F
  3281.              01 74 A7 A9 30 4F 76 A9 A8 30 53 16 03 1A 81 5C 61 4D 99 57 74 2E 16 1A 13 98 57 74 61
  3282.              4C A8 31 2E 16 01 1B 6B 61 4D 99 57 74 2E 2E 14 5C 02 1A 80 84 A7 0E 01 58 0F 01 98 57
  3283.              75 5F 1A 10 83 01 00 A9 A8 30 4F 76 A8 A8 30 53 16 01 7F 01 A8 89 92 6C 16 02 1A 81 15
  3284.              61 4F 99 57 74 2E 17 1A 13 98 57 74 61 4E A8 31 2E 16 01 1B 6B 61 4F 99 57 74 2E 2E 14
  3285.              9A 57 57 74 5C 03 1A 3A A7 0E 01 58 0F 01 D3 0F 07 61 43 00 1A 21 A7 0E 01 58 0F 01 D3
  3286.              0F 07 1A 80 B9 A7 0E 01 58 0F 01 1A 80 CD A7 0E 01 58 0F 01 D4 0F 07 61 43 02 14 6C 44
  3287.              5C 01 0F 08 1A 80 B7 98 14 0E 01 58 0F 01 2D 36 1A 32 0E 07 1C FD 4F 67 07 23 13 FD AB
  3288.              90 00 A7 23 39 FD B3 A7 23 3A FD AE 16 01 90 00 A7 23 38 05 A7 24 3A FD A6 16 01 61 3B
  3289.              0E 01 58 0F 01 98 57 74 2E 04 02 0F 00 1A 80 74 A7 0E 01 58 0F 01 98 57 1A 1E A7 0E 01
  3290.              58 0F 01 98 57 74 A8 A8 30 4F 76 A8 A8 30 53 16 02 1A 80 53 A7 0E 01 58 0F 01 98 57 74
  3291.              A8 A8 30 4F 76 A8 A8 30 53 16 02 1A 07 98 14 0E 01 58 0F 01 00 0F 07 0F 08 1A 2F 98 14
  3292.              0E 01 58 0F 01 D4 0F 07 1A 06 A7 0E 01 58 0F 01 00 0F 08 1A 18 A7 0E 01 58 0F 01 61 50
  3293.              67 08 37 05 31 4C 0F 08 1A 06 E0 03 51 14 2F 0D 7F 01 A8 89 92 FA 60 00 19 04
  3294.             )
  3295.       *DEAD-CODE* *CODE-PART* LABEL-SUBST *LABEL-SUBST* EMIT-JMP *CODE-PARTS* CODE-PART
  3296.       *CURRENT-VALUE* *CURRENT-VARS* ANODE 3. TRAVERSE-ANODE "ITEM" COMPILER-ERROR
  3297.       #S(HASH-TABLE EQ (UNBIND1 . 1387.) (UNWIND-PROTECT-CLEANUP . 1376.) (LIST* . 1364.)
  3298.          (LIST . 1364.) (CONS . 1364.) (SVSET . 1350.) (SVREF . 1350.) (SYMBOL-FUNCTION . 1350.)
  3299.          (CONSP . 1350.) (ATOM . 1350.) (CDR . 1350.) (CAR . 1350.) (EQ . 1350.) (NOT . 1350.)
  3300.          (MVCALL . 1350.) (LIST-TO-MV . 1350.) (MV-TO-LIST . 1350.) (NV-TO-STACK . 1350.)
  3301.          (MV-TO-STACK . 1350.) (STACK-TO-MV . 1350.) (UNLIST* . 1350.) (UNLIST . 1350.)
  3302.          (PUSH-UNBOUND . 1350.) (APPLY . 1350.) (FUNCALL . 1350.) (CALLCKEY . 1350.)
  3303.          (CALLC . 1350.) (CALLSR . 1350.) (CALLS2 . 1350.) (CALLS1 . 1350.)
  3304.          (MAKE-VECTOR1&PUSH . 1350.) (POP . 1350.) (PUSH . 1350.) (PROGV . 1350.)
  3305.          (PUSH-NIL . 1350.) (UNWIND-PROTECT-CLOSE . 1328.) (UNWIND-PROTECT-OPEN . 1305.)
  3306.          (CATCH-OPEN . 1305.) (JSR . 1295.) (JMP . 1284.) (ERROR . 1228.) (THROW . 1228.)
  3307.          (RET . 1228.) (T . 1206.) (STORE . 1197.) (UNWIND-PROTECT-NORMAL-EXIT . 1197.)
  3308.          (CATCH-CLOSE . 1197.) (TAGBODY-CLOSE . 1197.) (BLOCK-CLOSE . 1197.) (MVCALLP . 1197.)
  3309.          (VALUES1 . 1197.) (SKIPSP . 1197.) (SKIPI . 1197.) (SKIP . 1197.) (VALUES0 . 1185.)
  3310.          (TAGBODY-CLOSE-NIL . 1171.) (NIL . 1171.) (GO . 1143.) (TAGBODY-OPEN . 1097.)
  3311.          (RETURN-FROM . 1072.) (BLOCK-OPEN . 1029.) (BOUNDP . 944.) (JMPIFBOUNDP . 944.)
  3312.          (APPLYP . 939.) (FUNCALLP . 939.) (CALL2 . 926.) (CALL1 . 926.) (CALL0 . 926.)
  3313.          (CALL . 910.) (CALLP . 1411.) (COPY-CLOSURE . 894.) (VENV . 780.) (JMPHASH . 678.)
  3314.          (JMPIFNOT1 . 1239.) (JMPIF1 . 1239.) (JMPIFNOT . 1239.) (JMPIF . 1239.) (UNWIND . 533.)
  3315.          (BIND . 528.) (SETVALUE . 487.) (GETVALUE . 470.) (SET . 372.) (GET . 214.) (GCONST . 86.)
  3316.          (BCONST . 78.) (FCONST . 70.) (CONST . 2.)
  3317.         )
  3318.       CONST 1. 2. MAKE-CONST-CODE FALSE TRUE FCONST-INDEX BCONST-INDEX GCONST-INDEX #.#'EQ VAR 4.
  3319.       FNODE GETVALUE KCONST-INDEX 9. ZUGRIFF-IN-CLOSURE LOADIC LOADC LOADV 10. ZUGRIFF-IN-STACK
  3320.       LOADI LOAD SETVALUE STOREIC STOREC STOREV STOREI STORE BIND KCONST-INDEX-1 EXPAND-UNWIND
  3321.       MAKE-LABEL #S(HASH-TABLE EQ (JMPIFNOT1 . 16.) (JMPIF1 . 9.) (JMPIFNOT . 5.) (JMPIF . 1.))
  3322.       JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE *CODE-INDEX* FINISH-CODE-PART JMPIF JMPIF1 JMPIFNOT
  3323.       JMPIFNOT1 (VALUES1) JMPHASH CONST-INDEX *FUNC* (VENV) (NIL) VENV (NIL) :VALUE MAKE-CONST
  3324.       COPY-CLOSURE CALL (PUSH) VAR-CLOSUREP VAR-STACKZ JMPIFBOUNDP BLOCK-OPEN BLOCK RETURN-FROM
  3325.       TAGBODY GO #.#'SYMBOLP "LISTITEM"
  3326.   )  )
  3327. #Y(#:TOP-LEVEL-FORM-253-1 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) NOTE-REFERENCES
  3328.    REMOVE-OLD-DEFINITIONS
  3329.    #Y(NOTE-REFERENCES
  3330.       #122Y(01 00 01 00 00 08 3C 01 9A 56 25 00 80 69 9A 1A 10 9A 57 74 A9 A8 30 4F 76 A8 A8 30 53
  3331.             16 02 9A 57 57 74 9A 1A 29 9A 57 57 75 5F A8 88 92 80 44 83 01 00 AA A8 30 4F 76 A8 A8
  3332.             30 53 16 01 7F 01 1A 69 9A 1A 07 9A 57 1A 03 9A 57 57 57 74 9B 14 A8 30 4F 76 A8 A8 30
  3333.             53 19 05 9A 57 75 5F 1A 10 83 01 00 AB A8 30 4F 76 A8 A8 30 53 16 01 7F 01 A8 89 92 6C
  3334.             00 19 05 00 19 03
  3335.            )
  3336.       #S(HASH-TABLE EQ (TAGBODY-OPEN . 78.) (JMPTAIL . 61.) (JSR . 57.) (BLOCK-OPEN . 57.)
  3337.          (UNWIND-PROTECT-CLOSE . 54.) (UNWIND-PROTECT-OPEN . 54.) (CATCH-OPEN . 54.)
  3338.          (JMPIFBOUNDP . 54.) (JMPHASH . 26.) (JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.)
  3339.          (JMPCASE . 5.) (JMP . 2.)
  3340.   )  )  )
  3341. #Y(#:TOP-LEVEL-FORM-253-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REMOVE-REFERENCES
  3342.    REMOVE-OLD-DEFINITIONS
  3343.    #Y(REMOVE-REFERENCES
  3344.       #161Y(01 00 01 00 00 08 3C 01 5F 9B 56 25 00 80 8F 9B 1A 19 9B 57 74 A7 AB A9 6D 4F 37 07 6E
  3345.             4B 30 53 A7 A9 37 03 7C B7 01 16 01 9B 57 57 74 A7 9C 1A 35 9B 57 57 75 5F 1A 17 83 01
  3346.             00 14 AC A9 6D 4F 37 07 6E 4B 30 53 A7 AA 37 03 7C B7 02 7F 01 A8 89 92 65 16 02 1A 80
  3347.             46 9B 1A 07 9B 57 1A 03 9B 57 57 57 74 A7 9D 14 A9 6D 4F 37 07 6E 4B 30 53 A7 A9 37 03
  3348.             7C B7 01 16 01 1A 23 9B 57 75 5F 1A 17 83 01 00 14 AD A9 6D 4F 37 07 6E 4B 30 53 A7 AA
  3349.             37 03 7C B7 02 7F 01 A8 89 92 65 16 02 15 19 03
  3350.            )
  3351.       #S(HASH-TABLE EQ (TAGBODY-OPEN . 110.) (JMPTAIL . 82.) (JSR . 78.) (BLOCK-OPEN . 78.)
  3352.          (UNWIND-PROTECT-CLOSE . 75.) (UNWIND-PROTECT-OPEN . 75.) (CATCH-OPEN . 75.)
  3353.          (JMPIFBOUNDP . 75.) (JMPHASH . 36.) (JMPCASE1-FALSE . 5.) (JMPCASE1-TRUE . 5.)
  3354.          (JMPCASE . 5.) (JMP . 2.)
  3355.   )  )  )
  3356. #Y(#:TOP-LEVEL-FORM-254
  3357.    #51Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 DA 5F 1A 0A
  3358.         83 01 00 14 AA 60 30 65 7F 01 A8 89 92 72 16 02 31 75 C0 19 01
  3359.        )
  3360.    ONE-VALUE-OPS "~S redefines the constant ~S. Its old value was ~S."
  3361.    (DEFCONSTANT ONE-VALUE-OPS
  3362.     (LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
  3363.      (DOLIST
  3364.       (OP
  3365.        '#1=(NIL T CONST LOAD LOADI LOADC LOADV LOADIC STORE STOREI STOREC STOREV STOREIC GETVALUE
  3366.             SETVALUE POP VENV COPY-CLOSURE BOUNDP VALUES1 MV-TO-LIST TAGBODY-CLOSE-NIL NOT EQ CAR
  3367.             CDR CONS ATOM CONSP SYMBOL-FUNCTION SVREF SVSET LIST LIST*
  3368.       )    )
  3369.       (SETF (GETHASH OP HT) T)
  3370.      )
  3371.      HT
  3372.    ))
  3373.    WARN #.#'EQ #1#
  3374.   )
  3375. #Y(#:TOP-LEVEL-FORM-255
  3376.    #91Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 DA 5F 1A 0A
  3377.         83 01 00 14 AA 5F 30 65 7F 01 A8 89 92 72 16 02 DB 5F 1A 0A 83 01 00 14 AA DC 30 65 7F 01
  3378.         A8 89 92 72 16 02 DD 5F 1A 0A 83 01 00 14 AA DE 30 65 7F 01 A8 89 92 72 16 02 31 75 C0 19
  3379.         01
  3380.        )
  3381.    FOR-VALUE-TABLE "~S redefines the constant ~S. Its old value was ~S."
  3382.    (DEFCONSTANT FOR-VALUE-TABLE
  3383.     (LET ((HT (MAKE-HASH-TABLE :TEST #'EQ)))
  3384.      (DOLIST
  3385.       (OP
  3386.        '#1=(NIL PUSH-NIL T CONST LOAD LOADI LOADC LOADV LOADIC GETVALUE POP JSR JMPTAIL VENV
  3387.             COPY-CLOSURE CALL CALL0 CALLS1 CALLS2 CALLSR FUNCALL PUSH-UNBOUND JMPIFBOUNDP BOUNDP
  3388.             VALUES0 STACK-TO-MV MVCALL BLOCK-OPEN TAGBODY-OPEN TAGBODY-CLOSE-NIL GO
  3389.             UNWIND-PROTECT-OPEN UNWIND-PROTECT-CLOSE LIST ERROR
  3390.       )    )
  3391.       (SETF (GETHASH OP HT) 'NIL)
  3392.      )
  3393.      (DOLIST
  3394.       (OP
  3395.        '#2=(STORE STOREI STOREC STOREV STOREIC SETVALUE BIND PROGV PUSH MAKE-VECTOR1&PUSH CALL1
  3396.             CALL2 CALLC CALLCKEY APPLY UNLIST UNLIST* VALUES1 LIST-TO-MV MVCALLP CATCH-OPEN NOT EQ
  3397.             CAR CDR CONS ATOM CONSP SYMBOL-FUNCTION SVREF SVSET LIST*
  3398.       )    )
  3399.       (SETF (GETHASH OP HT) 'ONE)
  3400.      )
  3401.      (DOLIST
  3402.       (OP '#3=(MV-TO-STACK NV-TO-STACK MV-TO-LIST RETURN-FROM THROW UNWIND-PROTECT-NORMAL-EXIT))
  3403.       (SETF (GETHASH OP HT) 'ALL)
  3404.      )
  3405.      HT
  3406.    ))
  3407.    WARN #.#'EQ #1# #2# ONE #3# ALL
  3408.   )
  3409. #Y(#:TOP-LEVEL-FORM-256 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SIMPLIFY
  3410.    REMOVE-OLD-DEFINITIONS
  3411.    #Y(SIMPLIFY
  3412.       #1030Y(01 00 00 00 00 02 90 01 90 00 A7 23 00 80 46 A7 D7 37 03 88 B3 80 4B A7 23 07 80 6B A7
  3413.              DD 37 03 88 B3 80 67 A7 DE 37 03 88 B3 80 63 DF E0 2F 0C 16 01 F6 5F 5F AB 91 00 5F AC
  3414.              9A 1F 83 4A 9A 57 F7 8F 00 80 4E A7 23 06 80 60 99 1F 83 37 9A 56 56 25 14 83 30 99 57
  3415.              74 D6 37 01 31 76 1A 51 C4 1A 4E 90 01 23 03 0B 99 57 74 D6 37 01 6E 76 23 04 6D 90 01
  3416.              23 05 0C 99 57 57 74 D6 37 01 6E 76 23 04 5C C6 1A FF A9 C6 1A FF A5 00 1A FF A1 C4 1A
  3417.              FF 9D 9A 56 56 25 0D FF AB A9 E3 9C 56 57 74 5C 02 1A 82 B1 A9 CF 1A 82 AC 9A 56 56 25
  3418.              10 FF 99 A9 D1 1A 82 A0 A9 D2 1A 82 9B 9A 56 57 74 AA E8 30 A8 AA E3 93 02 77 02 9C 58
  3419.              1A 81 9B 99 56 74 67 15 5F 89 64 82 AD AA 9A F9 1A 81 26 99 56 56 25 16 82 A0 99 57 1F
  3420.              82 9B 99 57 74 EC 89 FF 82 93 AA 9A 57 F9 1A 81 0B A9 03 18 1A 80 FF A9 03 19 1A 80 F9
  3421.              9B 56 57 74 AC E3 A9 9D 1A 82 24 9B 56 57 74 9C 56 57 57 74 AD EF AA AA AE 6F 02 33 77
  3422.              03 30 A8 AD 91 06 30 AA 7A 08 16 04 1A FF 09 AB 03 1E 1A 81 B9 9B 56 57 74 24 1C 80 4A
  3423.              A8 23 1D 6E AA F4 30 A8 AB E3 93 03 5C 02 1A 80 DF AC 9C 57 FB 1A 81 B8 A8 23 1D 75 AB
  3424.              E3 AA 31 8A 1A 81 8A AC 03 21 1A 81 35 AC CE 1A 81 0D AB 61 23 30 A8 1A 81 CE 9B 56 57
  3425.              74 A9 A8 8C 01 2E 6E 16 03 1A 82 00 A7 23 22 6D 16 02 1A 81 F7 99 56 56 25 24 81 F0 99
  3426.              56 57 74 9B 56 57 74 9C 56 57 57 74 AC EF F2 AC AC 32 03 33 1A 14 99 56 57 74 9B 56 57
  3427.              74 9C 56 57 57 74 AC EF AB AB 32 02 33 14 AA 5C 03 1A 81 74 9A 56 57 74 9C 56 57 74 AC
  3428.              03 25 1A 81 5C 99 56 74 A7 23 25 6B 16 01 1A 81 A4 A8 61 27 30 A8 A9 03 28 1A 81 6A 90
  3429.              01 61 26 88 FF 6E 90 01 61 29 89 FF 81 8A A9 03 2A 14 30 A8 A9 9A 57 14 30 AA 1A 81 4F
  3430.              AB 03 2D 1A 80 E0 99 56 74 A7 23 2B 80 4D A7 24 0E 2A 9A 56 57 74 A7 23 1D 11 AA E3 93
  3431.              02 77 02 30 A8 AB 03 2E 14 30 A8 1A 80 DD 9B 57 1F 51 9B 57 74 61 2C 89 FF 49 16 02 1A
  3432.              81 3F 16 01 1A 81 3A A9 03 2F 1A 81 05 99 56 74 67 15 5F 88 64 71 99 56 74 A7 23 30 04
  3433.              A7 24 31 0E AB 9B 57 FA 14 30 AA 7A 05 16 01 1A FD C7 16 01 1A 81 0D AC 03 32 14 AB 9B
  3434.              1A 21 9A 56 57 74 9A 56 74 A7 24 31 80 55 9B 56 57 74 A9 A8 8C 01 2E 62 A9 A8 8D 01 2D
  3435.              3E AC CE 14 A9 9D 14 32 01 34 1A 80 90 9A 56 57 74 9A 56 74 A7 23 0E FE 51 A7 23 1A FE
  3436.              57 A7 23 1B FE 79 A7 23 20 FE 94 A7 24 21 FE BD 9B 56 57 74 A7 AA 8C 01 2E FE 90 A7 AA
  3437.              8C 01 2D FE 8F AD 9D 57 FC 1A 80 60 A7 61 33 37 03 89 B3 0F AB 61 32 9B 14 5C 02 14 30
  3438.              A8 AB 9C 57 1A 17 9B 56 74 67 15 5F 89 64 18 AB 61 34 30 A8 AB 61 32 93 03 77 02 9D 58
  3439.              14 30 AA 7A 06 16 02 1A FD 21 16 02 1A 80 67 99 56 74 A7 24 35 80 5D 9A 56 57 74 9C 56
  3440.              57 74 AC 03 35 14 AA 9B 14 32 02 33 14 5C 02 14 30 A8 AC 9D 57 14 30 AA 7A 07 16 03 1A
  3441.              FC EF 9A 56 75 61 36 89 FF 32 A9 03 37 14 30 A8 7A 04 1A FC DC 9A 56 74 67 38 A9 7C 64
  3442.              00 9A F9 99 F8 1A FC CC AA D6 AA 31 7A 9B FC 16 01 1A 25 16 01 1A FC B6 03 1C 1A 80 5E
  3443.              16 01 9A 20 56 8F 02 13 14 D6 37 01 6E 76 A8 99 21 07 A7 23 04 55 8F 01 52 16 01 16 04
  3444.              8E 00 56 16 01 5F 9C 56 74 24 39 80 54 9C 57 F6 1F 80 4E 98 56 74 23 3A 14 9C 57 56 74
  3445.              24 0E 80 40 9C 57 57 F6 1F 3A 98 56 74 24 3A 34 98 56 57 74 99 56 57 57 74 A9 9F 57 21
  3446.              FF A2 9E 57 56 57 56 14 AE 61 3B AB AC AB 6F 02 33 AC 77 04 30 A8 16 03 90 00 2E 3C 90
  3447.              04 2E 3D AB 91 01 30 AA 79 02 16 01 15 19 03
  3448.             )
  3449.       JMP FOR-VALUE (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) JMPCASE1-TRUE ALL JMPCASE1-FALSE ONE
  3450.       JMPHASH (ERROR GO JMPTAIL) (RETURN-FROM RET THROW) SIMPLIFY "AT-END" COMPILER-ERROR
  3451.       #S(HASH-TABLE EQ (SVREF . 13.) (CONS . 13.) (EQ . 13.) (POP . 13.) (STACK-TO-MV . 2.)
  3452.          (LIST* . 2.) (LIST . 2.) (CONSP . 64.) (ATOM . 64.) (SYMBOL-FUNCTION . 64.) (CDR . 64.)
  3453.          (CAR . 64.) (NOT . 64.) (LIST-TO-MV . 64.) (MV-TO-LIST . 64.) (VALUES1 . 64.)
  3454.          (VALUES0 . 64.) (BOUNDP . 64.) (VENV . 64.) (GETVALUE . 64.) (LOADIC . 64.) (LOADV . 64.)
  3455.          (LOADC . 64.) (LOADI . 64.) (LOAD . 64.) (CONST . 64.) (T . 64.) (NIL . 64.)
  3456.         )
  3457.       SKIP (SKIP 1.)
  3458.       #S(HASH-TABLE EQ (STACK-TO-MV . 12.) (LIST-TO-MV . 7.) (VALUES0 . 2.) (VALUES1 . 41.)) (NIL)
  3459.       (CAR) (POP)
  3460.       #S(HASH-TABLE EQ (LIST* . 760.) (PUSH-UNBOUND . 715.) (NV-TO-STACK . 557.)
  3461.          (MV-TO-STACK . 510.) (PUSH . 445.) (POP . 409.) (SKIPSP . 386.) (SKIPI . 315.)
  3462.          (SKIP . 597.) (NOT . 139.) (VALUES1 . 123.)
  3463.         )
  3464.       ONE-VALUE-OPS #S(HASH-TABLE EQ (CONSP . 28.) (ATOM . 22.) (NOT . 2.)) (NOT) (CONSP) (ATOM)
  3465.       SKIPI LOAD 0. 1. (POP) (POP) PUSH NV-TO-STACK STORE (VALUES1)
  3466.       #S(HASH-TABLE EQ (SKIPSP . 25.) (SKIPI . 2.) (SKIP . 110.)) SKIPSP (STORE 0.) (VALUES1)
  3467.       (SKIP 1.) (PUSH) (VALUES1) POP (LOAD 0.) (STORE 0.) (STORE 0.) (PUSH) VALUES0 STACK-TO-MV
  3468.       PUSH-NIL (VALUES0 NIL) (PUSH) PUSH-UNBOUND (1.) (CONS) FOR-VALUE-TABLE RET JSR JMPTAIL
  3469.       REMOVE-REFERENCES NOTE-REFERENCES
  3470.   )  )
  3471. #Y(#:TOP-LEVEL-FORM-257 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-PART
  3472.    REMOVE-OLD-DEFINITIONS
  3473.    #Y(OPTIMIZE-PART
  3474.       #40Y(01 00 00 00 00 02 A8 6B 00 8E 00 03 00 19 03 14 6D 4F 5F 1A 0C 83 01 00 14 8B 09 03 A7
  3475.            2E 01 7F 01 A8 89 92 70 00 19 05
  3476.           )
  3477.       SIMPLIFY OPTIMIZE-VALUE
  3478.   )  )
  3479. #Y(#:TOP-LEVEL-FORM-258 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-LABEL
  3480.    REMOVE-OLD-DEFINITIONS
  3481.    #Y(OPTIMIZE-LABEL
  3482.       #204Y(01 00 03 00 00 11 3A 03 07 AB D5 37 01 7D 76 03 3A 02 07 67 01 AB 7E 01 01 02 3A 01 04
  3483.             A9 7C 9C 01 AB 9A 57 22 80 90 8E 04 80 93 00 19 05 5F 1A 0B A7 90 05 7F 06 AE 6C 04 7C
  3484.             A2 00 9C 20 72 67 01 A7 AE 5F 32 01 02 16 01 A7 5F 1A 1E 83 01 00 14 D5 37 01 6E 76 67
  3485.             01 A8 6F 01 01 8F 00 08 A9 A9 A9 37 01 27 FF 9F 16 02 7F 01 A8 89 92 5E 00 19 09 AA 67
  3486.             01 A9 32 01 01 75 30 AA 67 01 A7 A9 5F 32 01 02 16 01 AA 30 9C 75 8F 00 05 14 D5 AF 31
  3487.             7A 16 01 AD 5F 30 53 AB 2E 06 19 07 90 00 A7 8B 09 11 67 01 A8 32 01 01 56 74 24 05 06
  3488.             AC A8 89 FE FF BE 00 19 07 D7 2E 03 8F 04 FF 6D 14 6D 4F 8F 00 FF 69 98 57 1C 54 00 19
  3489.             06
  3490.            )
  3491.       CODE-PART *CODE-PARTS* OPTIMIZE-LABEL COMPILER-ERROR REMOVE-REFERENCES JMP OPTIMIZE-PART
  3492.   )  )
  3493. #Y(#:TOP-LEVEL-FORM-259 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-SHORT
  3494.    REMOVE-OLD-DEFINITIONS
  3495.    #Y(OPTIMIZE-SHORT
  3496.       #564Y(01 00 01 00 00 08 3A 01 07 67 00 AA 7E 01 01 01 A8 6D 9C 91 00 8F 00 26 AA 9A 22 12 90
  3497.             03 90 00 A7 23 01 1D A7 D9 37 03 88 B3 81 63 16 02 AA 9A 21 05 91 03 9A 22 07 9B 56 74
  3498.             24 0C 81 66 00 19 05 99 57 74 AA 99 21 1C AA A8 2F 02 67 00 A7 B0 5F 32 01 02 16 01 A7
  3499.             AF A9 6D 4F 37 07 6E 4B 30 53 A7 2E 03 16 01 00 19 07 5F AC 6D 4F 5F 1A 80 E4 A9 B1 30
  3500.             A8 AA AF 30 4F 76 AF A8 30 53 16 01 AA AE 30 4F 76 AE A8 30 53 16 01 AA 80 05 16 03 1A
  3501.             80 C0 79 00 8F 01 80 7A 1A 80 67 C6 1A 80 7D C7 1A 80 79 99 57 74 9A 57 57 74 90 03 C6
  3502.             55 14 90 04 C7 55 14 B5 9C 22 17 A3 F9 AE B3 30 4F 76 B3 A8 30 53 16 01 AE 80 09 90 0D
  3503.             24 06 02 7A 01 B5 9B 22 17 A2 F8 AE B2 30 4F 76 B2 A8 30 53 16 01 AE 80 09 90 0D 24 07
  3504.             02 7A 00 AA DD 37 01 6E 76 23 09 02 79 01 A9 DD 37 01 6E 76 24 09 FF 93 8F 01 10 8F 00
  3505.             0D DF 9F 57 76 AE A8 30 AA 16 01 79 01 F6 AD 8E 02 FF 84 8E 01 FF 84 CB 14 AC AC 77 03
  3506.             30 A8 16 07 1A 2B E2 2E 0E 16 03 1A 24 83 01 00 14 8B 09 1D 67 00 A8 6F 01 01 90 00 90
  3507.             00 A7 23 01 FF 2C A7 DA 37 03 88 B3 FF 57 A7 23 0C 57 16 03 7F 01 A8 89 92 56 16 02 AC
  3508.             E4 AE 6D 4F 37 05 6E 4C 30 53 AC 2E 03 A7 5F 1A 19 83 01 00 67 00 A8 6F 01 01 2E 10 A7
  3509.             2E 11 A7 67 00 A9 6F 01 01 2F 12 7F 01 A8 89 92 63 16 07 1A FE 9F 99 57 74 9A 57 57 74
  3510.             AB 9A 21 05 AB 99 22 FE CA 16 04 1A FE 8A 5F A9 5F 30 AA A8 6D 4F 5F 1A 80 73 E8 AF 6F
  3511.             00 17 A7 5F 1A 09 83 01 00 14 AC 2F 14 7F 01 A8 89 92 73 16 02 67 00 A8 91 03 6F 02 21
  3512.             A8 AC A9 32 01 02 16 03 AB A9 AD 6D 4F 37 07 6E 4B 30 53 A8 80 03 16 01 1A 37 14 5F 1A
  3513.             0D 83 01 00 67 00 A8 6F 01 01 2E 15 7F 01 A8 89 92 6F 16 02 A8 2E 03 19 06 83 01 00 14
  3514.             8B 09 14 A7 AF 88 FE 0F 67 00 A8 6F 01 01 98 56 74 23 01 FF 91 16 01 7F 01 A8 89 92 5F
  3515.             16 02 A9 A9 30 AA 8E 00 FF B9 00 19 06
  3516.            )
  3517.       *CODE-PARTS* JMP LABEL-SUBST OPTIMIZE-LABEL (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE)
  3518.       (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) JMPCASE1-TRUE JMPCASE1-FALSE FOR-VALUE ALL (VALUES1)
  3519.       JMPCASE JMPHASH OPTIMIZE-SHORT COMPILER-ERROR #.#'INTEGERP SIMPLIFY OPTIMIZE-VALUE
  3520.       OPTIMIZE-JMPCASE #.#'COPY-LIST NOTE-REFERENCES OPTIMIZE-PART
  3521.   )  )
  3522. #Y(#:TOP-LEVEL-FORM-260 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-BOOLEAN-VALUE
  3523.    REMOVE-OLD-DEFINITIONS
  3524.    #Y(GET-BOOLEAN-VALUE
  3525.       #191Y(01 00 00 00 00 02 5F 46 00 80 AD 1A 16 9D 56 56 25 01 80 A2 C2 47 1A 80 9F C3 47 1A 80
  3526.             9A 9B 54 F9 7F 05 9D 20 67 8F 05 80 8C 00 2A 01 00 0B 00 00 A7 AB 69 04 02 AE 6D 4F 5F
  3527.             1A 80 72 00 16 06 47 1A 80 74 99 57 57 56 1C 73 99 57 57 56 1A 2C 83 01 00 14 8B 09 37
  3528.             67 05 A8 32 01 01 74 90 00 A7 23 06 60 A7 DC 37 03 89 B3 18 B2 9A 57 56 22 03 D8 9D 33
  3529.             B2 9A 57 57 56 22 0F C2 14 9D 33 16 02 1A 2A DD 2E 09 16 02 1A 23 16 02 1A 1F 98 56 25
  3530.             0A 17 00 16 04 47 1A 1F C2 19 04 C3 19 04 A7 23 03 76 A7 23 02 75 00 19 04 DD 2E 09 7F
  3531.             01 A8 89 92 FF 9C 16 04 00 47 14 8E 01 63 15 19 03
  3532.            )
  3533.       VALUE
  3534.       #S(HASH-TABLE EQ (UNWIND-PROTECT-CLEANUP . 15.) (CATCH-CLOSE . 15.) (TAGBODY-CLOSE . 15.)
  3535.          (BLOCK-CLOSE . 15.) (VALUES1 . 15.) (SETVALUE . 15.) (STOREIC . 15.) (STOREC . 15.)
  3536.          (STOREV . 15.) (STOREI . 15.) (STORE . 15.) (SKIPSP . 15.) (SKIPI . 15.) (SKIP . 15.)
  3537.          (UNBIND1 . 15.) (NOT . 12.) (LIST* . 7.) (LIST . 7.) (CONS . 7.) (CONST . 7.) (T . 7.)
  3538.          (TAGBODY-CLOSE-NIL . 2.) (VALUES0 . 2.) (NIL . 2.)
  3539.         )
  3540.       FALSE TRUE
  3541.       #Y(GET-BOOLEAN-VALUE-NEU
  3542.          #29Y(01 00 00 00 00 02 07 00 01 1C 09 A8 07 00 01 22 09 00 19 02 99 0C 00 01 19 02 00 48
  3543.               01
  3544.              )
  3545.          NIL NIL
  3546.         )
  3547.       *CODE-PARTS* JMP (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) GET-BOOLEAN-VALUE COMPILER-ERROR
  3548.       #S(HASH-TABLE EQ (CATCH-OPEN . 1.) (BLOCK-OPEN . 1.) (JMPIFBOUNDP . 1.))
  3549.   )  )
  3550. #Y(#:TOP-LEVEL-FORM-261 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-JMPCASE
  3551.    REMOVE-OLD-DEFINITIONS
  3552.    #Y(OPTIMIZE-JMPCASE
  3553.       #145Y(02 00 00 00 00 03 99 56 74 23 00 80 64 00 19 03 AA D6 AA 91 06 6B 02 77 03 30 A8 A8 AC
  3554.             AA 6D 4F 37 06 D8 6E 4B 30 53 AA 2E 04 A8 DA 37 01 6E 76 2E 06 19 05 DD AB 91 05 1A 21
  3555.             98 56 56 25 09 1E A7 91 01 99 F9 98 F8 16 02 1A 10 AD 2E 04 AE 2E 06 19 08 A8 7F 01 14
  3556.             30 AA 81 02 98 20 5C A9 8B 87 08 AD D5 AC AE 77 03 30 A8 A9 8A 85 5D 00 19 08 99 56 57
  3557.             74 9A 56 57 57 74 A8 99 21 FF 91 A8 DC 37 01 8A 76 08 A7 DC 37 01 8B 76 FF A6 00 19 05
  3558.            )
  3559.       JMPCASE JMP GET-BOOLEAN-VALUE 1. OPTIMIZE-PART CODE-PART OPTIMIZE-SHORT FOR-VALUE 0.
  3560.       #S(HASH-TABLE EQ (NOT . 20.) (UNWIND-PROTECT-CLEANUP . 1.) (CATCH-CLOSE . 1.)
  3561.          (TAGBODY-CLOSE . 1.) (BLOCK-CLOSE . 1.) (VALUES1 . 1.) (SKIPSP . 1.) (SKIPI . 1.)
  3562.          (SKIP . 1.) (UNBIND1 . 1.)
  3563.   )  )  )
  3564. #Y(#:TOP-LEVEL-FORM-262 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-VALUE
  3565.    REMOVE-OLD-DEFINITIONS
  3566.    #Y(OPTIMIZE-VALUE
  3567.       #240Y(01 00 01 00 00 08 3A 01 07 67 00 AA 7E 01 01 01 90 01 90 00 A7 D6 37 03 89 B3 80 BA 99
  3568.             57 74 9A 57 57 74 90 03 24 02 09 A8 D8 37 01 6E 76 24 04 0E 90 03 24 05 15 A7 D8 37 01
  3569.             6E 76 23 04 0C AC DB 9D 57 76 7C A8 03 AD AD 2F 07 91 05 6B 08 A7 23 09 36 A7 24 11 80
  3570.             5C A9 AF AB 6D 4F 37 07 6E 4B 30 53 AD DF AA D2 78 02 30 A8 90 04 24 05 0D E8 9F 57 76
  3571.             AE A8 30 AA 16 01 AD 2E 0D AD 2E 0E 9A 14 2E 0F AE 2E 10 19 08 A8 AF AA 6D 4F 37 07 6E
  3572.             4B 30 53 AD DF AB CB 78 02 30 A8 90 04 24 02 0D E1 9F 57 76 AE A8 30 AA 16 01 AD 2E 0D
  3573.             AD 2E 0E 99 1A 4D 00 19 08 AC DF AA AA 77 03 30 A8 A8 E9 37 01 6E 76 37 01 28 02 09 FF
  3574.             3A 91 04 6B 08 8E 00 64 00 19 07 A7 24 0A 13 99 57 74 A7 D8 37 01 8B 76 06 9A 57 57 56
  3575.             1C 62 00 19 06 00 19 05
  3576.            )
  3577.       *CODE-PARTS* (JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE) JMPCASE1-TRUE FOR-VALUE ALL
  3578.       JMPCASE1-FALSE JMPCASE OPTIMIZE-JMPCASE GET-BOOLEAN-VALUE TRUE JMP (TRUE) (VALUES1) SIMPLIFY
  3579.       OPTIMIZE-PART OPTIMIZE-LABEL OPTIMIZE-SHORT FALSE (FALSE) (VALUES1) CODE-PART
  3580.   )  )
  3581. #Y(#:TOP-LEVEL-FORM-263 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COALESCE
  3582.    REMOVE-OLD-DEFINITIONS
  3583.    #Y(COALESCE
  3584.       #125Y(00 00 01 00 00 07 3A 01 1B 5F D5 67 01 6D 14 1A 05 A8 80 02 81 01 A8 A8 8D 01 30 75 16
  3585.             02 A7 31 43 16 01 F7 00 2A 01 37 05 C2 F9 AE 7D 41 02 6D 63 AA 5F 1A 32 83 01 00 67 01
  3586.             A8 6F 01 01 98 1F 22 98 57 1F 1E 98 57 57 1F 19 90 00 99 57 74 9A 57 57 56 78 02 A9 A8
  3587.             AD 5F 30 64 76 A8 AD A9 30 65 16 02 16 01 7F 01 A8 89 92 4A 16 02 00 0B 01 00 A8 69 03
  3588.             01 A8 30 67 06 01 00 19 04
  3589.            )
  3590.       0. *CODE-PARTS* #.#'EQUAL
  3591.       #Y(COALESCE-1
  3592.          #258Y(02 00 00 00 00 03 99 57 1B 03 00 19 03 5F A9 1A 0E 90 00 67 01 A8 6F 01 01 80 02 16
  3593.                01 7F 00 98 20 6F 16 01 A7 7C A3 00 5F 67 01 6D 14 D7 5F AD 1A 0E 90 00 67 03 A8 6F
  3594.                01 01 80 02 16 01 7F 00 98 20 6F 16 01 A7 7C A3 00 37 04 6E 45 1A 3C AC AF 1A 16 16
  3595.                03 1A 17 90 01 99 1F 77 90 01 90 01 A8 2F 06 16 02 7F 01 7F 00 99 20 6B 16 02 AC 1A
  3596.                08 A7 99 56 75 30 A8 7F 00 98 20 75 16 01 64 01 00 80 04 64 01 00 AB 2F 07 16 02 D9
  3597.                AB 8D 00 26 17 29 2A 01 90 04 98 56 0B 01 00 A8 69 05 01 91 06 8C 00 26 FF A9 16 02
  3598.                DD 6B 09 DF A8 CB 78 02 AC AF 1A 1C 16 03 1A 1D 90 01 99 1F 77 90 01 67 01 AC 9B 76
  3599.                A8 AA A9 32 01 02 16 04 7F 01 7F 00 99 20 65 16 02 A8 AF 30 53 A8 E1 AC 31 7A AB A9
  3600.                6D A2 67 01 37 01 30 18 A9 67 03 37 01 30 18 16 02 67 01 A9 6F 01 01 2E 0D AC 2E 0E
  3601.                02 0C 00 01 19 07
  3602.               )
  3603.          NIL *CODE-PARTS* #.#'MAX *CODE-POSITIONS* #.#'CONSP
  3604.          #Y(COALESCE-1-1 #15Y(01 00 00 00 00 02 90 01 65 00 01 30 FF 19 02) NIL) REMOVE-REFERENCES
  3605.          NOTE-REFERENCES ALL MAKE-LABEL JMP (NIL) CODE-PART OPTIMIZE-PART COALESCE
  3606.   )  )  )
  3607. #Y(#:TOP-LEVEL-FORM-264 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) OPTIMIZE-ALL
  3608.    REMOVE-OLD-DEFINITIONS
  3609.    #Y(OPTIMIZE-ALL
  3610.       #636Y(00 00 00 00 00 01 D5 1A 80 59 67 01 A8 6F 01 01 8F 00 1F 14 6D 9C 91 00 8F 00 0E AA A8
  3611.             D7 37 01 6E 76 88 FE 04 D8 D7 2F 04 A7 AB AB AB 2C 04 05 16 02 16 01 67 01 A8 6F 01 01
  3612.             8F 00 04 A8 A8 2F 06 16 01 67 01 A8 6F 01 01 8F 00 04 A8 A8 2F 07 16 01 67 01 A8 6F 01
  3613.             01 8F 00 04 A8 A8 2F 08 16 01 81 00 A7 67 01 6D 14 89 FE FF 9E 16 01 2D 09 1B FF 93 D5
  3614.             67 01 6D 14 1A 81 7E A0 FF 16 08 1A 81 77 A9 AF 9E 33 1C 80 99 9A FD 16 02 1A 80 94 9A
  3615.             FC 16 02 1A 80 8D B0 9A 57 1A 80 6E 16 02 8F 03 81 02 AD AD 67 01 AD 32 01 01 57 76 30
  3616.             AA 67 01 A7 AC 5F 32 01 02 16 01 9E FE 16 08 00 2A 01 A8 6D 9C 91 00 A7 6D 4F 67 0A AD
  3617.             32 01 01 0B 03 00 01 03 8F 04 FF A4 AD 69 0B 01 AB 5F A8 88 92 FF BB 83 01 00 14 8B 09
  3618.             3B A7 B3 88 FE 36 67 01 A8 32 01 01 74 90 00 A7 23 0C FF 86 A7 23 0D 1B A7 23 0E FF 92
  3619.             A7 24 0F 19 B0 9A 57 56 22 13 A9 AD 9E 33 1C 0D 9A FB 16 02 1A 09 A9 AE 9E 33 1B FF 6E
  3620.             16 02 7F 01 1A FF B4 E5 99 57 1A 10 67 01 A9 6F 01 01 90 00 AE 99 57 56 21 6D E6 99 57
  3621.             74 77 02 B0 B0 A9 9D 57 78 02 30 AA 67 01 A7 AD 5F 32 01 02 16 01 A1 09 0B 16 0B 1A FF
  3622.             60 E8 9A 57 1A 23 67 01 AA 6F 01 01 90 00 98 57 74 E7 37 01 8A 76 09 98 57 57 74 E7 37
  3623.             01 31 76 14 AF 9A 57 56 21 5A E9 9A 57 74 A9 77 03 B1 B1 A9 9E 57 78 02 30 AA 67 01 A7
  3624.             AF 5F 32 01 02 16 01 A2 09 0C 16 0C 1A FF 18 8E 01 FF 85 8E 02 FF B5 16 09 1A 80 47 A9
  3625.             E1 9B 57 74 77 02 30 A8 1A 80 9B E1 9A 57 74 77 02 E8 9B 57 57 74 9C 57 74 E7 37 01 8A
  3626.             76 09 9C 57 57 74 E7 37 01 31 76 14 5C 03 1A 80 72 E1 9A 57 57 74 77 02 E6 9B 1A 80 62
  3627.             67 01 A8 6F 01 01 8E 00 FE C6 16 01 82 00 14 24 00 6E 16 01 67 0A A7 A9 D5 32 01 02 16
  3628.             01 EA EB 67 01 67 0A 6F 01 24 EC A8 37 05 7D 4D 00 14 ED EE 37 02 7D 61 00 5F A8 5F A8
  3629.             88 92 80 4C 83 01 00 74 90 00 90 00 A7 23 0C FF 7A A7 23 0D FF 81 A7 23 0E FF 9F A7 24
  3630.             0F 13 E1 9A 57 74 77 02 E5 9B 57 57 74 5C 02 14 9C 57 5D 02 F8 16 02 A7 6D 9C 98 57 1C
  3631.             07 A7 91 01 77 01 30 AA 16 01 A7 AB 7C A2 03 16 01 7F 01 1A FF AF 16 02 15 19 03
  3632.            )
  3633.       0. *CODE-PARTS* CODE-PART OPTIMIZE-ALL COMPILER-ERROR OPTIMIZE-LABEL OPTIMIZE-JMPCASE
  3634.       OPTIMIZE-VALUE OPTIMIZE-SHORT COALESCE *CODE-POSITIONS*
  3635.       #Y(OPTIMIZE-ALL-BETTER
  3636.          #49Y(02 00 00 00 00 03 99 54 1D 25 67 01 A9 6F 01 01 67 01 AB 6F 01 01 A8 65 00 01 8C 01
  3637.               2E 0A A8 A8 65 00 01 32 02 2F 19 05 A7 A9 32 01 2F 19 05 19 03
  3638.              )
  3639.          NIL *CODE-POSITIONS*
  3640.         )
  3641.       JMP JMPCASE JMPCASE1-TRUE JMPCASE1-FALSE JMPIFNOT1 JMPIF1 FOR-VALUE JMPIFNOT JMPIF LIST
  3642.       #.#'CONS #.#'CAR #.#'> #.#'CDR
  3643.   )  )
  3644. #Y(#:TOP-LEVEL-FORM-265 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE-TO-LAP
  3645.    REMOVE-OLD-DEFINITIONS
  3646.    #Y(COMPILE-TO-LAP
  3647.       #85Y(00 00 00 00 00 01 D5 60 37 06 C1 F8 6D 19 D5 60 37 06 C1 F8 30 19 10 02 9B 10 03 D9 5C
  3648.            01 10 05 C1 10 06 00 10 07 00 10 08 00 10 09 00 10 0A 67 0B E1 A8 E2 7D 2A 00 E3 A8 E4
  3649.            7D 2A 00 2E 10 12 06 2D 11 14 90 00 7F 01 E7 88 FF 04 E8 E9 2F 15 15 12 02 19 02
  3650.           )
  3651.       10. 0. *CODE-POSITIONS* *CODE-PARTS* (START) *CODE-PART* *CODE-INDEX* *DEAD-CODE*
  3652.       *LABEL-SUBST* *CURRENT-VALUE* *CURRENT-VARS* *FUNC* FNODE 2. ANODE 3. TRAVERSE-ANODE
  3653.       OPTIMIZE-ALL (START) COMPILE-TO-LAP START COMPILER-ERROR
  3654.   )  )
  3655. #Y(#:TOP-LEVEL-FORM-266 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CONST-TO-LOADV
  3656.    REMOVE-OLD-DEFINITIONS
  3657.    #Y(CONST-TO-LOADV
  3658.       #71Y(01 00 00 00 00 02 A8 8F 00 38 90 00 98 1F 2C 98 56 25 00 27 A8 90 01 9A 57 74 6E 89 9B
  3659.            57 1A 04 A8 D6 D7 9B 57 5D 02 1A 09 A8 C3 1A 05 A8 D9 9A 57 58 14 30 A8 1A 04 DA DB 2F
  3660.            07 16 01 7F 00 8E 00 48 16 01 99 19 02
  3661.           )
  3662.       #S(HASH-TABLE EQ (GO . 36.) (RETURN-FROM . 36.) (BLOCK-OPEN . 36.) (CALL2 . 36.)
  3663.          (CALL1 . 36.) (CALL0 . 36.) (CALL . 36.) (COPY-CLOSURE . 36.) (BIND . 36.)
  3664.          (SETVALUE . 36.) (GETVALUE . 36.) (JMPHASH . 26.) (VENV . 22.) (CONST . 13.) (STOREV . 1.)
  3665.          (LOADV . 1.)
  3666.         )
  3667.       LOADV 0. (LOADV 0. 0.) JMPHASHV CONST-TO-LOADV "Illegal-in-GF" COMPILER-ERROR
  3668.   )  )
  3669. #Y(#:TOP-LEVEL-FORM-267
  3670.    #70Y(00 00 00 00 00 01 00 2A 04 D5 67 01 37 01 6D 64 2E 02 0B 00 00 D8 67 01 37 01 6D 64 2E 02
  3671.         0B 00 01 D9 67 01 37 01 6D 64 2E 02 0B 00 02 DA 67 01 37 01 6D 64 2E 02 0B 00 03 DB 2E 07
  3672.         DB A8 69 08 01 31 74 C6 19 02
  3673.        )
  3674.    1+ FUNCTION-CODES CALLS-CODE 1- ATOM CONSP INSERT-COMBINED-LAPS REMOVE-OLD-DEFINITIONS
  3675.    #Y(INSERT-COMBINED-LAPS
  3676.       #980Y(01 00 00 00 00 02 A8 8F 00 80 45 90 00 98 1F 38 83 00 00 14 A7 23 01 05 A7 24 02 80 50
  3677.             16 01 99 57 56 1F 10 99 57 56 74 A7 23 03 80 51 A7 23 04 80 4C 16 01 A8 DC 30 A8 A8 A8
  3678.             23 01 80 69 07 00 04 14 9B 57 58 14 30 AA 16 01 7F 00 8E 00 FF BB 16 01 A8 91 00 8F 01
  3679.             83 76 90 01 98 1F 83 66 99 56 1F 80 8F 90 00 9A 56 56 25 08 80 79 16 01 1A 57 C5 1A 22
  3680.             A8 23 01 79 C6 1A 1B C6 1A 18 16 01 99 57 56 57 57 56 1B FF AB A8 9A 57 56 74 23 03 63
  3681.             A8 23 01 66 C5 14 9B 57 56 57 74 77 02 30 A8 A8 9A 57 57 1A FF 9E 07 00 03 1A FF 94 C9
  3682.             1A 37 CA 1A 01 CB 14 9B 56 57 57 56 1C 02 7F 00 90 03 91 00 5F 30 AA 16 01 15 1A 1D CC
  3683.             1A 1A CD 1A 17 CE 1A 14 AA A8 91 03 9D 56 75 32 02 20 76 30 A8 AA 9B 57 1A 82 80 00 14
  3684.             E4 37 02 30 BA 75 8E 00 62 16 01 98 56 25 10 82 CC 9B 1A 0D D3 1A 82 21 A8 A8 7E 02 33
  3685.             01 16 01 9A 57 F8 A9 D1 70 8E 00 6F 16 01 AA A8 23 12 64 D4 1A 82 01 A9 D1 70 8E 00 57
  3686.             16 02 1A 82 A0 AB EC 9A 1A 81 00 AB EE A9 9E 57 56 57 74 5C 03 1A 80 F6 99 57 74 9B 57
  3687.             74 EB 88 FF 63 9B 57 56 1F 07 9B 57 56 74 23 18 5D AB EF 9A 1A 81 6F 16 03 1A 82 6C 03
  3688.             1C 1A 0A AA 9B 57 56 74 23 03 74 03 1D 14 9B 57 74 9D 57 56 57 74 77 03 30 A8 AA 9B 57
  3689.             57 1A 81 E9 99 56 1F 82 43 99 56 74 A7 23 15 FF B0 A7 24 1B 1D 9A 57 56 1F 18 9A 57 56
  3690.             74 A7 23 03 05 A7 24 04 FF B6 16 01 9A 57 56 57 57 56 1C FF B4 16 02 1A 82 17 AC 03 20
  3691.             1A 80 41 AC 61 21 AB 9F 57 56 57 74 5C 03 1A 38 9B 57 56 74 A7 23 1F 65 A7 23 18 67 16
  3692.             04 1A 81 F3 AC 03 23 1A 1E 9B 57 56 1F 80 FB 9B 57 56 74 A7 23 1F 6D A7 24 18 1E A9 9D
  3693.             57 56 57 74 89 FE 15 AC 03 24 14 AB 5C 02 14 30 A8 AC 9D 57 75 30 AA 16 04 1A 81 BE 16
  3694.             04 1A 81 B9 9B 57 56 1F 80 C6 9B 57 56 74 24 18 80 BE 9B 57 56 57 74 93 02 89 FE 80 B3
  3695.             AB 61 26 AA 31 8A 14 5C 02 14 30 A8 AB 9C 57 1A 80 93 03 28 1A 1E AB 9C 57 74 65 00 01
  3696.             88 FF 72 03 29 1A 10 03 2A 1A 0C AB 9C 57 74 65 00 01 88 FF 72 03 2B 14 AA 77 02 30 A8
  3697.             AB 9C 57 57 1A 80 64 99 56 1F 81 58 98 57 74 9A 56 74 A7 23 1E 80 5C A7 23 22 FF 5C A7
  3698.             23 25 FF 8C A7 24 1F 80 53 9B 57 56 1F 35 9B 57 74 65 00 01 88 FF 09 9B 57 74 65 00 02
  3699.             89 FF 23 9B 57 57 56 1F 1D 9B 57 57 74 61 27 88 FF FF 8F 9B 57 57 56 74 24 18 0B 9B 57
  3700.             57 56 57 74 A9 88 FE FF 8E AB 61 2C 9B 14 77 02 30 A8 AB 9C 75 30 AA 16 03 1A 80 F3 9B
  3701.             57 56 20 FE E9 16 03 1A 80 E8 A9 61 2E 9A 57 74 5C 02 1A 80 A5 A9 61 30 9A 57 57 74 77
  3702.             02 30 A8 A9 9A 1A 80 9B 90 01 61 2F 88 FF 69 A9 61 31 9A 57 1A 2E E7 1A 04 81 00 7F 02
  3703.             90 02 61 32 88 FF 75 A7 23 12 0E AA 03 33 14 A9 5C 02 14 30 A8 AA 9B 1A 3E 16 02 1A 80
  3704.             9A A9 03 34 1A 08 A9 90 01 9A 57 74 5C 02 14 30 A8 16 01 1A 80 85 29 2A 02 99 57 57 56
  3705.             0B 00 00 99 57 57 57 57 0B 00 01 A7 69 35 01 64 01 00 30 67 16 01 90 02 98 57 57 75 00
  3706.             14 30 AA 16 02 1A 80 59 99 56 1F 80 52 99 56 74 24 36 80 4B 99 57 74 61 37 89 FF 80 42
  3707.             A9 61 38 9A 57 74 9C 56 57 74 5C 03 14 30 A8 A9 9A 57 75 30 AA 16 01 1A 2B 90 01 61 2D
  3708.             89 FF 22 99 57 56 1F 1D 99 57 56 74 24 18 16 99 57 56 57 74 99 57 74 89 FE 0B 99 57 57
  3709.             74 99 57 57 56 21 FF 1A 16 01 98 F7 57 F6 8E 01 FC 8A 16 02 99 19 02
  3710.            )
  3711.       NIL ATOM CONSP JMPIF JMPIFNOT JMPIFATOM JMPIFCONSP (PUSH)
  3712.       #S(HASH-TABLE EQ (RET . 101.) (STOREC . 98.) (STORE . 95.) (JMPIFNOT . 72.) (JMPIF . 69.)
  3713.          (PUSH . 66.)
  3714.         )
  3715.       ((T . T&PUSH) (CONST . CONST&PUSH) (LOADI . LOADI&PUSH) (LOADC . LOADC&PUSH)
  3716.        (LOADV . LOADV&PUSH) (GETVALUE . GETVALUE&PUSH) (CALL . CALL&PUSH) (CALL1 . CALL1&PUSH)
  3717.        (CALL2 . CALL2&PUSH) (CALLS1 . CALLS1&PUSH) (CALLS2 . CALLS2&PUSH) (CALLSR . CALLSR&PUSH)
  3718.        (CALLC . CALLC&PUSH) (CALLCKEY . CALLCKEY&PUSH) (CAR . CAR&PUSH) (CDR . CDR&PUSH)
  3719.        (CONS . CONS&PUSH) (LIST . LIST&PUSH) (LIST* . LIST*&PUSH) (FUNCALL . FUNCALL&PUSH)
  3720.        (APPLY . APPLY&PUSH) (COPY-CLOSURE . COPY-CLOSURE&PUSH)
  3721.       )
  3722.       ((EQ . JMPIFEQ) (LOAD . LOAD&JMPIF) (CALL1 . CALL1&JMPIF) (CALL2 . CALL2&JMPIF)
  3723.        (CALLS1 . CALLS1&JMPIF) (CALLS2 . CALLS2&JMPIF) (CALLSR . CALLSR&JMPIF)
  3724.       )
  3725.       ((EQ . JMPIFNOTEQ) (LOAD . LOAD&JMPIFNOT) (CALL1 . CALL1&JMPIFNOT) (CALL2 . CALL2&JMPIFNOT)
  3726.        (CALLS1 . CALLS1&JMPIFNOT) (CALLS2 . CALLS2&JMPIFNOT) (CALLSR . CALLSR&JMPIFNOT)
  3727.       )
  3728.       ((NIL . NIL&STORE) (T . T&STORE) (POP . POP&STORE) (CALLS1 . CALLS1&STORE)
  3729.        (CALLS2 . CALLS2&STORE) (CALLSR . CALLSR&STORE)
  3730.       )
  3731.       ((LOAD . LOAD&STOREC)) ((SKIP . SKIP&RET)) #.#'EQ
  3732.       #S(HASH-TABLE EQ (APPLY . 631.) (JMPHASHV . 587.) (JMPHASH . 587.) (JMPIFNOT . 571.)
  3733.          (JMPIF . 571.) (UNWIND-PROTECT-CLOSE . 566.) (UNBIND1 . 529.) (JSR . 515.)
  3734.          (JMPIFBOUNDP . 677.) (LOAD . 369.) (CONST . 134.) (PUSH-NIL . 37.) (NIL . 37.)
  3735.         )
  3736.       #Y(INSERT-COMBINED-LAPS-NILPUSHER-P
  3737.          #49Y(01 00 00 00 00 02 90 01 31 01 1E 23 99 56 74 A7 23 00 0D 8E 00 07 9A 57 74 D6 88 FF
  3738.               09 00 19 03 9A 56 57 56 19 03 A9 9B 57 75 30 AA C2 19 03 19 02
  3739.              )
  3740.          PUSH-NIL (PUSH) 1.
  3741.         )
  3742.       1. (NIL&PUSH) PUSH-NIL SYMBOL-FUNCTION (PUSH) CONST&SYMBOL-FUNCTION&PUSH STORE
  3743.       CONST&SYMBOL-FUNCTION&STORE CONST&SYMBOL-FUNCTION EQ JMPIFEQTO JMPIFNOTEQTO CAR PUSH
  3744.       LOAD&CAR&PUSH LOAD&CAR&STORE CDR LOAD&CDR&PUSH LOAD&CDR&STORE CONS LOAD&CONS&STORE (PUSH)
  3745.       LOAD&INC&PUSH LOAD&DEC&PUSH LOAD&INC&STORE LOAD&DEC&STORE LOAD&PUSH (NIL) UNBOUND->NIL (PUSH)
  3746.       JSR&PUSH JSR (UNBIND1) UNBIND (UNWIND-PROTECT-CLOSE)
  3747.       #Y(INSERT-COMBINED-LAPS-1
  3748.          #22Y(02 00 00 00 00 03 65 00 01 A9 65 00 02 6D 94 AB A9 A9 30 65 19 05) NIL
  3749.         )
  3750.       SKIP (RET) APPLY&SKIP&RET
  3751.   )  )
  3752. #Y(#:TOP-LEVEL-FORM-268 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NUM-OPERAND-LENGTH
  3753.    REMOVE-OLD-DEFINITIONS
  3754.    #Y(NUM-OPERAND-LENGTH
  3755.       #27Y(01 00 00 00 00 02 A8 D5 8C 01 2D 09 A8 D7 8C 01 2D 06 C4 19 02 C1 19 02 C3 19 02) 128.
  3756.       1. 32768. 2. 6.
  3757.   )  )
  3758. #Y(#:TOP-LEVEL-FORM-269 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ASSEMBLE-LAP
  3759.    REMOVE-OLD-DEFINITIONS
  3760.    #Y(ASSEMBLE-LAP
  3761.       #839Y(01 00 00 00 00 02 A8 D5 8F 01 81 55 90 01 98 1F 2F 90 00 67 01 37 01 6D 64 8E 00 04 D7
  3762.             D8 2F 04 DA 99 5A 57 74 DB A8 24 07 11 9B 57 74 DD 90 05 DE 37 06 31 59 5A 14 8C 01 2D
  3763.             0C 99 25 0C 81 07 A7 A9 30 53 1A 81 12 DF 90 04 DE 37 06 31 59 5A 14 9C 57 74 7E 02 33
  3764.             02 CB F7 90 03 5C 01 F9 1A 80 E5 A7 9C 1A 80 5B 98 1A 20 81 04 DB 9C 57 56 76 9C 1A 80
  3765.             A7 A7 9C 57 74 6B 0D 32 02 33 1A 14 A7 9C 57 74 6B 0D 7E 02 33 00 14 7D 89 00 1A 80 B6
  3766.             A7 31 89 F6 14 9C 57 1A 28 A7 9C 57 74 6B 0D 7E 02 33 00 14 9C 57 57 74 6B 0D 32 02 33
  3767.             1A 0D A7 9C 57 74 6B 0D 7E 02 33 00 14 31 89 F6 14 9C 57 57 57 74 6B 0D 7E 02 33 00 1A
  3768.             80 7A A7 9C 57 74 6B 0D 32 02 33 1A 03 A7 31 89 F6 81 04 DB 9C 57 57 56 76 9C 57 1A 34
  3769.             A7 9C 57 74 6B 0D 7E 02 33 00 14 9C 57 1A 11 A7 9C 57 74 6B 0D 7E 02 33 00 14 31 89 1A
  3770.             09 A7 9C 57 74 6B 0D 32 02 33 F6 81 04 DB 9C 57 57 57 56 76 9C 57 57 75 A8 30 A8 16 01
  3771.             1A 23 A7 9C 57 74 6B 0D 7E 02 33 00 9B 57 75 8F 00 11 81 05 DB 99 56 76 A8 A8 30 A8 16
  3772.             01 7F 00 8E 00 6F 16 01 AB A8 7E 02 33 04 AC A9 A9 AC 9F 57 78 03 30 A8 16 03 16 01 7F
  3773.             01 8E 01 FE AB 16 02 5F D5 AA 5F 1A 80 9D A7 AA 30 53 1A 80 94 83 01 00 1F 74 A9 99 57
  3774.             74 7E 02 33 02 98 56 25 0E 80 81 98 57 57 75 99 56 25 0F 29 98 1A 27 98 57 1A 23 98 57
  3775.             57 1A 1E A9 E9 30 A8 AE 31 89 1A 80 50 90 01 A7 23 06 70 16 01 1A 80 4E A9 EA 30 A8 03
  3776.             16 1A 38 00 14 5F A8 88 92 80 45 83 01 00 AC 90 01 7E 02 33 05 91 00 6D 4F AD 6F 01 34
  3777.             E5 A8 E6 8C 02 2F 25 E7 A8 E8 8C 02 2F 45 90 01 A7 23 06 4A A7 24 14 12 A9 EA 30 A8 03
  3778.             17 14 AF 32 02 33 FD 7A 08 16 01 1A 02 16 01 16 01 7F 01 1A FF B6 16 03 7F 01 A8 89 92
  3779.             FF 65 16 02 99 16 02 1B FF 4F 00 2A 02 00 0B 00 00 C0 0B 00 01 98 2A 01 A8 2B 18 01 0B
  3780.             00 00 A7 69 19 01 A8 69 1A 01 AC 5F 1A 81 03 83 01 00 1F 80 FB 64 05 01 99 57 74 32 02
  3781.             33 0B 05 01 98 57 57 74 06 05 00 33 98 56 25 1B 80 E1 98 1A 80 54 98 1A 15 98 1A 80 B1
  3782.             98 57 57 57 74 9C 1A 1C 98 57 57 57 74 9C 33 98 57 57 57 57 74 06 05 00 33 1A 80 BA 98
  3783.             57 57 57 74 06 05 00 33 98 57 1A 24 98 57 57 57 74 9C 33 98 57 57 57 57 74 9C 1A 10 98
  3784.             57 57 57 74 9C 33 98 57 57 57 57 74 06 05 00 33 98 57 57 57 57 57 74 9C 33 1A 80 80 98
  3785.             57 57 57 74 9C 1A 08 98 57 57 57 74 06 05 00 33 98 57 1A 80 45 98 57 57 57 74 9C 33 98
  3786.             57 57 57 57 74 9C 33 1A 31 98 57 57 57 74 9C 33 98 57 57 57 57 74 06 05 00 33 1A 1E 98
  3787.             57 57 57 74 9C 33 9C 2A 01 99 57 57 57 57 56 0B 00 00 A7 69 1C 01 64 01 00 30 67 16 01
  3788.             98 57 57 57 57 57 74 9B 33 1A 1D 98 57 57 57 74 9C 33 98 57 57 57 75 5F 1A 08 83 01 00
  3789.             14 9D 33 7F 01 A8 89 92 74 16 02 7F 01 A8 89 92 FE F8 16 05 64 00 00 31 43 19 03
  3790.            )
  3791.       0. INSTRUCTION-CODES ASSEMBLE-LAP "ILLEGAL INSTRUCTION" COMPILER-ERROR #.INSTRUCTION-TABLE 1.
  3792.       K #.SHORT-CODE-OPSIZE #.INSTRUCTION-TABLE-K #.SHORT-CODE-OPS O
  3793.       #S(HASH-TABLE EQ (NLX . 230.) (NHL . 200.) (NBL . 185.) (NNL . 170.) (BL . 154.) (NL . 143.)
  3794.          (NBN . 114.) (NNN . 92.) (BN . 83.) (NB . 66.) (NN . 55.) (L . 44.) (B . 41.) (N . 36.)
  3795.          (K . 36.) (O . 265.)
  3796.         )
  3797.       NUM-OPERAND-LENGTH
  3798.       #S(HASH-TABLE EQ (NLX . 2.) (NHL . 2.) (NBL . 2.) (NNL . 2.) (BL . 2.) (NL . 2.) (L . 2.))
  3799.       #S(HASH-TABLE EQ (NHL . 8.) (NBL . 8.) (NNL . 8.) (NLX . 4.) (BL . 4.) (NL . 4.) (L . 1.))
  3800.       -64. 63. -16384. 16383. 2. 6. 5. 4.
  3801.       #Y(ASSEMBLE-LAP-NEW-BYTE #16Y(01 00 00 00 00 02 A8 07 00 01 58 0C 00 01 19 02) NIL)
  3802.       #Y(ASSEMBLE-LAP-NUM-OPERAND
  3803.          #56Y(01 00 00 00 00 02 A8 D6 8C 01 2D 23 A8 D7 8D 01 2D 20 D6 D8 D9 6E C7 AA 6E CA 6F 02
  3804.               33 07 00 01 33 D9 DA 6E C7 A9 31 CA 14 07 00 01 33 19 02 99 1A 76 DB DC 2F 08 19 02
  3805.              )
  3806.          NIL 128. 32768. 7. 8. 0. ASSEMBLE-LAP "15 BIT" COMPILER-ERROR
  3807.         )
  3808.       #Y(ASSEMBLE-LAP-LABEL-OPERAND
  3809.          #121Y(01 00 00 00 00 02 65 01 02 90 02 32 02 33 0C 01 02 91 01 6D 4F 65 01 02 6F 01 34 90
  3810.                02 A7 23 01 80 44 A7 23 04 80 42 A7 24 07 80 4A DA 07 00 01 33 D8 07 00 01 33 DB DD
  3811.                6E C7 A9 6E CA 07 00 01 33 DB DE 6E C7 A9 6E CA 07 00 01 33 DB DB 6E C7 A9 31 CA 14
  3812.                07 00 01 33 C6 14 D8 6E C7 A9 6E CA 07 00 01 33 19 04 C2 1A 70 DA D7 DB 6E C7 AA 6E
  3813.                CA 32 02 33 1A 5D 00 19 04
  3814.               )
  3815.          NIL 1. 7. 0. 2. 128. 8. 6. 24. 16.
  3816.         )
  3817.       #S(HASH-TABLE EQ (NLX . 198.) (NHL . 157.) (NBL . 138.) (NNL . 121.) (BL . 107.) (NL . 99.)
  3818.          (NBN . 70.) (NNN . 54.) (BN . 41.) (NB . 21.) (NN . 13.) (L . 9.) (B . 6.) (N . 2.)
  3819.          (K . 2.) (O . 227.)
  3820.         )
  3821.       #Y(ASSEMBLE-LAP-1
  3822.          #25Y(02 00 00 00 00 03 65 00 01 A9 6D 4F 65 02 02 6F 01 34 AB A9 A9 30 65 19 05) NIL
  3823.   )  )  )
  3824. #Y(#:TOP-LEVEL-FORM-270 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DISASSEMBLE-LAP
  3825.    REMOVE-OLD-DEFINITIONS
  3826.    #Y(DISASSEMBLE-LAP
  3827.       #449Y(02 00 00 00 00 03 00 2A 01 7B 03 00 00 98 2A 02 5F C0 0B 01 00 5F 00 0B 02 01 9A 2A 01
  3828.             AA 2B 01 01 0B 00 00 98 2A 01 A8 69 02 01 A9 2B 03 01 0B 01 00 06 06 00 1C 81 50 06 05
  3829.             00 F9 06 02 00 70 A7 D9 8C 01 30 2B DD 99 5A 14 90 00 99 57 74 A7 23 09 3B A7 DF 37 03
  3830.             88 B3 3C A7 23 0B 3C A7 24 0C 80 67 A8 37 01 06 07 00 70 5C 02 16 03 1A 81 09 A7 DA 60
  3831.             37 05 C6 F7 6E 59 A8 DA 9A 5A 14 6F 01 34 DC 9A 5A 14 A8 5C 02 16 02 1A 80 EC A8 5C 01
  3832.             16 03 1A 80 E4 A8 9D 1A 4F A8 06 07 00 1A 49 A8 9D 1A 0D A8 9D 70 06 08 00 1A 80 43 A8
  3833.             06 07 00 70 9E 1A 3B A8 9D 70 9E 1A 06 A8 9D 70 06 08 00 70 9F 1A 80 4D A8 9D 1A 20 A7
  3834.             23 0D 52 A7 23 0E 52 A7 23 0F 57 A7 23 10 5B A7 23 11 5D A7 23 12 64 A7 24 13 18 A8 06
  3835.             07 00 70 37 01 06 08 00 70 5C 03 16 03 1A 80 82 A8 9D 70 9E 1A 0F A7 23 14 76 A7 24 15
  3836.             80 67 A8 9D 70 06 08 00 70 37 01 06 09 00 70 5C 04 16 03 1A 80 5F A7 B6 30 94 1A 0D 9D
  3837.             2A 01 9D 70 AA 23 17 71 90 0E 99 5A 14 00 0B 02 00 A9 69 18 01 A8 30 67 AB A9 37 01 06
  3838.             0B 00 70 06 05 00 5D 03 16 06 1A 2F 9C 70 5F D5 1A 0A 37 01 06 09 00 70 80 01 81 00 A7
  3839.             AA 8D 01 30 70 16 01 AA A9 A9 31 43 5D 02 16 05 1A 0C A7 23 16 FF AE A7 23 19 54 00 16
  3840.             03 F6 AB 99 76 80 05 16 01 06 06 00 1B FE B0 16 03 5F 8F 00 2D 06 03 01 1C 28 98 56 74
  3841.             06 04 01 56 74 8D 01 2B 1C 06 03 01 74 80 00 06 03 01 57 0B 03 01 8F 02 0F 91 02 AA A9
  3842.             7C A9 01 66 02 8E 00 53 8E 02 71 15 19 07
  3843.            )
  3844.       0.
  3845.       #Y(DISASSEMBLE-LAP-NEXT-BYTE
  3846.          #28Y(00 00 00 00 00 01 65 00 01 31 89 0C 00 01 07 01 01 74 07 01 01 57 0C 01 01 15 19 01)
  3847.          NIL
  3848.         )
  3849.       #Y(DISASSEMBLE-LAP-NUM-OPERAND
  3850.          #37Y(00 00 00 00 00 01 07 00 01 70 A7 D6 8C 01 2D 12 D7 D8 A9 6F 02 33 6F 02 35 07 00 01
  3851.               70 32 02 33 19 02 15 19 01
  3852.              )
  3853.          NIL 128. 256. -128.
  3854.         )
  3855.       #Y(DISASSEMBLE-LAP-LABEL-OPERAND
  3856.          #173Y(00 00 01 00 00 07 3A 01 80 6D 07 00 01 70 A7 D6 8C 01 2D 80 4E D8 A8 7E 02 33 00 14
  3857.                D7 8C 01 2D 06 D8 A8 7E 02 33 00 D9 A8 6F 02 35 07 00 01 70 7E 02 33 00 14 8B 84 3B
  3858.                D9 D9 D9 07 00 01 70 6F 02 35 07 00 01 70 6F 02 33 6F 02 35 07 00 01 70 6F 02 33 6F
  3859.                02 35 07 00 01 33 14 32 02 33 1A 14 98 1A 11 A7 D7 8C 01 2D 77 D8 99 1A 6D 14 A8 30
  3860.                AA 1A 35 98 16 01 F7 65 01 01 A9 6F 02 33 5F 65 01 02 8F 00 17 A9 99 56 74 8C 01 2E
  3861.                0F A9 99 56 74 8C 01 2B 13 98 F7 57 F6 8E 00 69 A9 C5 70 80 00 8E 01 49 98 0C 01 02
  3862.                98 56 57 19 05
  3863.               )
  3864.          NIL 128. 64. -128. 256.
  3865.          #Y(DISASSEMBLE-LAP-PC->LABEL-A
  3866.             #20Y(01 00 00 00 00 02 A8 D5 D6 AB 6D 86 6F 02 23 30 CA 58 19 02) STRING "L"
  3867.         )  )
  3868.       #.SHORT-CODE-BASE #.SHORT-CODE-OPS #.#'>= #.INSTRUCTION-TABLE-K #.INSTRUCTION-TABLE O (K N) B
  3869.       L NN NB BN NNN NBN NL BL NNL NBL NHL JMPHASH
  3870.       #Y(DISASSEMBLE-LAP-1 #20Y(02 00 00 00 00 03 A8 07 01 01 70 07 00 01 58 0C 00 01 19 03) NIL)
  3871.       NLX
  3872.   )  )
  3873. #Y(#:TOP-LEVEL-FORM-271 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CREATE-FUN-OBJ
  3874.    REMOVE-OLD-DEFINITIONS
  3875.    #Y(CREATE-FUN-OBJ
  3876.       #402Y(02 00 00 00 00 03 D5 D6 AB D7 6E 2A D8 C4 44 D6 AE DA 6E 2A DB 31 A6 41 02 A7 A9 3F 02
  3877.             16 02 40 D6 63 00 05 DC 6E 2A DB 31 A6 41 02 A7 A9 3F 02 16 02 40 D6 63 00 05 DD 8A 2A
  3878.             80 78 C9 14 D6 63 00 05 DF 8A 2A 80 71 C9 14 D6 63 00 05 E1 8A 2A 80 6D C9 14 32 03 33
  3879.             40 D6 63 00 05 DA 6E 2A D6 63 00 05 DC 6E 2A D6 63 00 05 DD 6E 2A D6 63 00 05 E1 6E 2A
  3880.             8E 01 0E 8E 00 0B AA AA 6F 02 33 E5 8C 01 2D 80 4B 8F 01 0D 8E 00 0A A9 8B 84 06 AA E7
  3881.             8C 01 2D 3E 8E 01 80 AE 8F 00 80 AA AA AA 6F 02 33 E7 8D 01 2D 80 9F D4 14 9B 5A 14 AB
  3882.             32 02 33 1A 80 94 C2 1A FF 85 CB 1A FF 8C CF 1A 0A E2 D6 63 00 05 E3 8A 2A 74 C9 14 32
  3883.             02 33 1A FF 83 D1 1A 56 D3 1A 56 03 15 44 D6 63 01 05 EB 6E 2A 6E 41 DB 31 A6 41 02 A7
  3884.             A9 3F 02 16 02 40 D6 63 01 05 EC 6E 2A DB 31 A6 41 02 A7 A9 3F 02 16 02 40 45 1A 80 50
  3885.             5F D6 B3 EF 6E 2A D6 B4 F0 6E 2A 1A 1D 14 31 34 1A 0F 16 03 1A 19 90 01 99 1F 77 90 01
  3886.             8E 00 6D 99 14 80 04 16 02 7F 01 7F 00 99 20 69 16 02 A7 30 A3 16 01 1A 3A A8 A8 F1 6E
  3887.             26 77 01 32 02 20 1A 3A C9 16 03 F6 D6 63 00 05 E1 8A 2A FF 82 3D 40 63 00 04 45 14 ED
  3888.             D6 AF EC 6E 2A 37 01 6D 9D A7 D6 B1 EB 6E 2A 0E 19 1B FF 95 D6 B2 EF 31 2A 14 6F 03 20
  3889.             D6 B1 DF 8A 2A FF BB 98 16 01 F6 6A 06 1D D6 AB F3 AA 31 2B 16 01 9A 19 03
  3890.            )
  3891.       :NAME FNODE 1. :CODEVEC #.#'LIST* 10. 256. 11. 12. 0. 20. 16. 13. 128. 15. 64. 6.
  3892.       #(1. 7. 12. 16. 19. 21.) 5. 22. #(27. 32. 36. 39. 41.) #.#'VALUES 14. 9. :CONSTS
  3893.       *COMPILING-FROM-FILE* 17. 18. SIMPLE-VECTOR MAKE-CLOSURE 2.
  3894.   )  )
  3895. #Y(#:TOP-LEVEL-FORM-272 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SIGNATURE
  3896.    REMOVE-OLD-DEFINITIONS
  3897.    #Y(SIGNATURE
  3898.       #131Y(01 00 00 00 00 02 A8 6E 31 A9 6E 30 90 00 7F 01 D5 90 02 7F 03 6F 02 35 6F 02 33 90 01
  3899.             7F 02 D5 90 03 7F 04 6F 02 35 6F 02 33 90 02 7F 03 D6 A8 6E C3 7F 04 AA AA D7 AB 6E C3
  3900.             AA 8E 04 13 00 14 DA AE 6E C3 B1 B3 3F 08 19 08 90 0B D9 31 26 1A 24 90 08 7F 09 D5 90
  3901.             0A 7F 0B 6F 02 35 6F 02 33 90 09 7F 0A D5 90 0B 7F 0C 6F 02 35 6F 02 33 D8 AF 8A C3 56
  3902.             A3 14 A8 A9 AB 6F 02 33 31 3F 16 02 1A FF BC
  3903.            )
  3904.       256. 7. 0. 4. LIST 6.
  3905.   )  )
  3906. #Y(#:TOP-LEVEL-FORM-273 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PASS3
  3907.    REMOVE-OLD-DEFINITIONS
  3908.    #Y(PASS3
  3909.       #57Y(00 00 00 00 00 01 67 00 5F 1A 27 83 01 00 74 D6 A8 D7 7D 2A 00 99 57 74 A8 D7 A9 6F 02
  3910.            33 AA D7 AB 6F 02 33 6E 27 D6 A8 D7 7D 2A 00 31 28 16 02 7F 01 A8 89 92 55 00 19 03
  3911.           )
  3912.       *FNODE-FIXUP-TABLE* FNODE 2.
  3913.   )  )
  3914. #Y(#:TOP-LEVEL-FORM-274 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE-LAMBDABODY
  3915.    REMOVE-OLD-DEFINITIONS
  3916.    #Y(COMPILE-LAMBDABODY
  3917.       #33Y(02 00 00 00 00 03 A9 A9 6C 00 0E 01 1B 10 00 10 02 AA 2E 03 2D 04 11 DA A8 DB 31 2A 19
  3918.            04 00 19 04
  3919.           )
  3920.       C-LAMBDABODY *NO-CODE* *FNODE-FIXUP-TABLE* PASS2 PASS3 FNODE 2.
  3921.   )  )
  3922. #Y(#:TOP-LEVEL-FORM-275 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE-LAMBDA
  3923.    REMOVE-OLD-DEFINITIONS
  3924.    #Y(COMPILE-LAMBDA
  3925.       #85Y(07 00 00 00 00 00 02 10 00 00 10 01 00 10 02 0E 03 10 04 00 10 05 00 10 06 00 10 07 04
  3926.            19 10 08 04 1B 10 09 04 1D 10 0A 04 23 10 0B 00 10 0C 04 25 10 0D CE 10 0F CE 10 10 00
  3927.            10 11 62 37 62 37 6C 12 67 0F 8B 84 05 15 12 10 19 08 62 38 E8 2F 12 16 01 1A 73
  3928.           )
  3929.       *COMPILING* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* *ERROR-OUTPUT* *C-ERROR-OUTPUT*
  3930.       *KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC* *FENV* *BENV* *GENV* *VENV* *VENVC*
  3931.       *DENV* 0. *ERROR-COUNT* *WARNING-COUNT* *NO-CODE* COMPILE-LAMBDABODY (NIL NIL)
  3932.   )  )
  3933. #Y(#:TOP-LEVEL-FORM-276
  3934.    #26Y(00 00 00 00 00 01 00 2A 01 C0 0B 00 00 D6 2E 02 D6 A8 69 03 01 31 74 C1 19 02) 0.
  3935.    COMPILE-FORM REMOVE-OLD-DEFINITIONS
  3936.    #Y(COMPILE-FORM
  3937.       #32Y(06 00 00 00 00 00 D6 65 00 01 31 89 0C 00 01 14 6C 02 5F AF 77 02 AE AE AE AE AE 2C 07
  3938.            03 19 07
  3939.           )
  3940.       NIL #:COMPILED-FORM SYMBOL-SUFFIX COMPILE-LAMBDA
  3941.   )  )
  3942. #Y(#:TOP-LEVEL-FORM-277 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE
  3943.    REMOVE-OLD-DEFINITIONS
  3944.    #Y(COMPILE
  3945.       #371Y(01 00 01 00 00 08 3B 01 14 3C 02 01 02 AC 85 00 3D AC 6B 02 8E 03 80 4B A7 89 51 80 6B
  3946.             A7 D8 37 01 7D 76 05 1B 80 65 98 59 FB 9D 1F 09 90 05 24 0A 04 7A 02 7F 05 AC 8A 06 80
  3947.             56 9D 1F 06 90 05 23 0C 80 A5 AC 8A 07 80 A0 CD 14 AD 5E 01 C1 1A 79 D9 DA AF 2C 03 06
  3948.             AD 2E 07 1A 18 A7 D8 AE 31 7A 1A 32 8F 06 0E A7 D8 37 01 7D 76 03 1C 05 9B 20 5F 7A 01
  3949.             AC 8B 06 43 DD AD 2F 06 8F 06 16 8E 01 5A A7 AD 31 74 1A 0D DE AE 5E 01 7A 01 1A FF 99
  3950.             E0 AE 2F 06 9E 19 07 B5 E5 31 27 1A 80 59 B6 E6 31 27 1A 80 59 B7 E7 31 27 1A 80 59 B8
  3951.             E8 31 27 1A 80 59 BA E9 31 27 1A 80 5B 62 43 61 26 31 27 1A 80 98 00 1A 80 A5 DF 80 00
  3952.             8F 41 11 62 40 D8 A9 31 7A 04 46 1A 80 94 8E 42 6C 8E 41 6F 62 40 A8 31 74 04 46 1A 80
  3953.             84 60 E3 E3 01 02 67 0F 01 03 B5 8A 07 FF A1 00 14 B6 8A 07 FF A1 00 14 B7 8A 07 FF A1
  3954.             00 14 B8 8A 07 FF A1 00 14 5F BA 8A 07 FF A0 0E 15 10 16 00 10 17 04 13 10 18 04 15 10
  3955.             19 04 17 10 1A 04 19 10 1B 04 1B 10 1C 04 1D 10 1D 04 1F 10 1E 04 21 10 1F 04 23 10 20
  3956.             04 25 10 21 04 27 10 22 04 29 10 23 04 2B 10 24 04 2D 10 25 62 43 8A 07 FF 62 04 43 57
  3957.             14 62 45 A8 6C 27 67 19 8B 84 FF 5C 8E 46 FF 6D 98 16 02 12 10 19 15
  3958.            )
  3959.       FUNCTION-NAME-P "Name of function to be compiled must be a symbol, not ~S" GET-FUNNAME-SYMBOL
  3960.       TRACED-DEFINITION "~S: redefining ~S; it was traced!" COMPILE WARN UNTRACE2
  3961.       "~S is already compiled." "Undefined function ~S" MACRO "~S is already compiled." LAMBDA
  3962.       "Not a lambda expression nor a function: ~S" 0. *ERROR-OUTPUT* 5. 6. 7. 4. 8. *TOPLEVEL-DENV*
  3963.       *DENV* *NO-CODE* *COMPILING* *ERROR-COUNT* *WARNING-COUNT* *COMPILING-FROM-FILE*
  3964.       *C-LISTING-OUTPUT* *C-ERROR-OUTPUT* *KNOWN-SPECIAL-VARS* *CONSTANT-SPECIAL-VARS* *FUNC*
  3965.       *FENV* *BENV* *GENV* *VENV* *VENVC* 1. COMPILE-LAMBDABODY
  3966.   )  )
  3967. #Y(#:TOP-LEVEL-FORM-278 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *TOPLEVEL-FOR-VALUE*)
  3968.    *TOPLEVEL-FOR-VALUE*
  3969.   )
  3970. #Y(#:TOP-LEVEL-FORM-279 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE-TOPLEVEL-FORM
  3971.    REMOVE-OLD-DEFINITIONS
  3972.    #Y(COMPILE-TOPLEVEL-FORM
  3973.       #316Y(01 00 01 00 00 08 3A 01 02 0E 00 10 00 C1 4D 81 28 A0 1F 80 F2 90 08 A7 8A 03 80 80 16
  3974.             01 0E 0A 1C 80 ED 1A 80 EF AF 67 02 6C 03 A7 85 04 6D A7 DA 6E 27 37 01 27 4F 16 04 18
  3975.             0E 1A 80 FB 9B 25 07 80 7C 00 1A 0F B3 DD 2F 09 91 0C 8F 00 74 98 57 1B 0C 98 56 14 37
  3976.             01 27 FF AB 16 01 1A 35 DA A8 8F 00 1D 90 00 7F 01 0E 0A 1C 02 99 54 10 0A AA 67 00 81
  3977.             07 14 6C 0B 27 FF 8B 11 16 01 8E 00 63 16 03 1A 0F A4 10 0C AD 67 0D 37 01 6D 64 95 0E
  3978.             35 01 11 00 16 07 18 0E 1A 80 9D A7 2E 06 41 03 8F 02 FF 99 A9 24 10 1A B3 67 02 67 0F
  3979.             6F 02 00 6D 5A 37 01 27 FF 4E 16 07 18 0E 1A 80 7A AA 88 58 66 16 04 0E 0A 1C 80 46 1A
  3980.             80 48 00 16 03 18 0E 1A 80 64 00 1A 80 49 B2 67 15 2F 16 0E 17 1C 80 4F 14 30 8B B2 37
  3981.             0B 7A 01 F6 F8 F9 FD FC 79 09 FE 7A 05 67 17 30 80 0E 12 1C 39 ED 67 12 31 43 76 2E 19
  3982.             1A 30 AF 8A 03 FF 1A 0E 0A 1B 05 AF 84 11 FF B8 00 10 12 67 00 5F B4 0E 0A 1B FF B4 D3
  3983.             78 02 2F 14 09 0B 0E 15 1B FF AC 0E 17 1B FF B1 0E 12 1B 47 00 11 4E 11 19 03
  3984.            )
  3985.       *TOPLEVEL-NAME* C-ERROR *VENV* VENV-SEARCH-MACRO SYMBOL-MACRO-P 0. FENV-SEARCH
  3986.       #S(HASH-TABLE EQ (SYMBOL-MACROLET . 68.) (MACROLET . 68.) (COMPILER-LET . 68.)
  3987.          (EVAL-WHEN . 68.) (LOCALLY . 68.) (PROGN . 5.)
  3988.         )
  3989.       1. TEST-LIST *TOPLEVEL-FOR-VALUE* SYMBOL-SUFFIX *FORM* C-FORM-TABLE COMPILE-TOPLEVEL-FORM
  3990.       *FENV* MACRO C-CONSTANTP *PACKAGE-TASKS* ((VALUES)) COMPILE-LAMBDABODY *C-LISTING-OUTPUT*
  3991.       DISASSEMBLE-CLOSURES *FASOUTPUT-STREAM* PROGN C-EVAL-WHEN-COMPILE
  3992.   )  )
  3993. #Y(#:TOP-LEVEL-FORM-280 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COMPILE-FILE
  3994.    REMOVE-OLD-DEFINITIONS
  3995.    #Y(COMPILE-FILE
  3996.       #652Y(01 00 00 00 80 1C 04 00 00 00 3A 04 02 7A 04 3C 03 3A 02 02 0E 04 10 04 3A 04 02 0E 05
  3997.             10 05 01 04 B6 DB 2F 07 56 1B 0A B6 DD 37 02 6D EE 37 01 30 EE 09 0F 8F 0E 05 14 8B 13
  3998.             80 EB 8F 0D 12 14 8A 13 0E B4 02 21 80 FA B4 37 02 30 EE 09 0D 7A 00 B6 E1 37 03 6D F6
  3999.             50 82 22 CD 44 8E 04 80 EB B8 8A 13 80 EF 00 14 50 81 EF 8E 08 80 EB BC 8A 13 80 EF 00
  4000.             14 8E 09 80 EE 00 10 0F 5F 9C 10 10 50 81 A7 8E 0C 80 E9 0E 15 1B 19 00 0F 16 0F 17 0F
  4001.             18 0F 19 0F 1A 0F 1B 0F 1C 0F 1D 0F 1E 0F 1F 0F 20 7A 14 60 60 67 21 67 22 B7 8E 11 80
  4002.             DA 0E 23 10 24 00 10 25 00 10 26 00 10 27 00 10 28 00 10 29 00 10 2A 0E 2B 10 2C 03 2D
  4003.             10 2E 03 2D 10 2F 0E 10 54 1C 03 04 2F 54 10 30 02 10 31 61 2D 04 29 10 15 04 2B 10 32
  4004.             04 2D 10 21 04 2F 10 22 04 31 10 33 61 34 62 5A 2F 35 0E 10 1C 80 B6 0E 36 10 21 61 37
  4005.             61 38 2D 37 14 77 02 77 02 37 0B 7A 06 79 09 FE 7A 05 67 10 30 80 11 1A 80 96 DE B7 37
  4006.             01 30 EE 1A 09 B5 02 21 74 B5 37 02 30 EE 09 0E DF B6 37 01 7C EE 02 7A 01 8F 0D FF 12
  4007.             1A FE FD E0 B7 37 01 30 EE 1A FF 02 B8 E3 37 03 30 F6 1A FF 12 04 11 1A FF 0D BC E3 37
  4008.             03 30 F6 1A FF 12 04 15 1A FF 0D B1 E3 37 03 30 F6 1A FF 0A 14 E6 62 22 67 12 2D 13 42
  4009.             14 6D C0 6D C1 2C 07 14 0E 15 1C FF 05 1A FF 1B 67 23 B9 32 02 29 1A FF 1F 61 46 A9 6E
  4010.             43 2F 35 8F 00 80 72 61 47 A8 6E 43 2F 35 16 02 1A 80 68 A7 61 3A 81 12 14 6C 3B 2F 3C
  4011.             16 01 62 49 5F 61 39 37 01 6D 74 A7 61 39 89 FE 65 16 01 61 3D 62 5A 2F 35 61 3E 67 2E
  4012.             67 2F 2C 03 35 8F 4D 39 0E 16 1C 08 61 3F 67 16 6E 43 2F 35 67 1B 67 1A 61 40 61 41 2C
  4013.             04 42 0F 1B 1C 08 61 43 67 1B 6E 43 2F 35 67 18 67 17 6C 44 67 18 67 17 6C 45 8E 01 FF
  4014.             87 8E 00 FF 8E 16 02 61 48 2E 35 67 2E 7D 84 3E 12 05 16 01 12 0C 16 05 51 05 00 10 1C
  4015.             22 1A 05 05 00 10 1C 1B 67 10 37 01 31 6F 67 0F 37 01 31 6F 05 00 03 1B 0A 63 00 1D 30
  4016.             F4 63 00 11 30 F4 52 11 16 01 11 16 01 51 05 00 05 1C 0E 1A 05 05 00 05 1C 07 63 00 00
  4017.             37 01 31 6F 52 16 01 40 05 00 02 1C 05 14 37 01 31 6F 45 51 05 00 00 1C 0B 1A 05 05 00
  4018.             00 1C 04 14 60 31 6F 52 16 05 12 02 19 06
  4019.            )
  4020.       :OUTPUT-FILE :LISTING :WARNINGS :VERBOSE *COMPILE-WARNINGS* *COMPILE-VERBOSE* (#".lsp")
  4021.       SEARCH-FILE #".lsp" #".fas" #".lib" #".lis" :INPUT-IMMUTABLE #.#'VALUES :OUTPUT
  4022.       *LIBOUTPUT-STREAM* *FASOUTPUT-STREAM*
  4023.       "~&Listing of compilation of file ~A~%on ~@? by ~A, version ~A" *DATE-FORMAT*
  4024.       GET-DECODED-TIME FORMAT *COMPILING* *FUNCTIONS-WITH-ERRORS* *KNOWN-SPECIAL-VARS*
  4025.       *UNKNOWN-FREE-VARS* *CONSTANT-SPECIAL-VARS* *KNOWN-FUNCTIONS* *UNKNOWN-FUNCTIONS*
  4026.       *INLINE-FUNCTIONS* *NOTINLINE-FUNCTIONS* *INLINE-DEFINITIONS* *USER-DECLARATION-TYPES*
  4027.       *COMPILED-MODULES* *PACKAGE* *READTABLE* *ERROR-OUTPUT* *C-ERROR-OUTPUT* *FUNC* *FENV* *BENV*
  4028.       *GENV* *VENV* *VENVC* *TOPLEVEL-DENV* *DENV* 0. *ERROR-COUNT* *WARNING-COUNT* *NO-CODE*
  4029.       *TOPLEVEL-FOR-VALUE* *COMPILING-FROM-FILE* *C-LISTING-OUTPUT* "~%Compiling file ~A ..."
  4030.       C-COMMENT *KEYWORD-PACKAGE* VERSION QUOTE "EOF" #:TOP-LEVEL-FORM SYMBOL-SUFFIX
  4031.       COMPILE-TOPLEVEL-FORM "~&~%Compilation of file ~A is finished."
  4032.       "~%~D error~:P, ~D warning~:P"
  4033.       "~%There were errors in the following functions:~%~{~<~%~:; ~S~>~^~}" :TEST #.#'EQUAL
  4034.       NSET-DIFFERENCE "~%The following functions were used but not defined:~%~{~<~%~:; ~S~>~^~}"
  4035.       SET-DIFFERENCE INTERSECTION
  4036.       "~%The following special variables were not defined:~%~{~<~%~:; ~S~>~^~}"
  4037.       "~%The following special variables were defined too late:~%~{~<~%~:; ~S~>~^~}" "~%"
  4038.   )  )
  4039. #Y(#:TOP-LEVEL-FORM-281 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DISASSEMBLE-CLOSURES
  4040.    REMOVE-OLD-DEFINITIONS
  4041.    #Y(DISASSEMBLE-CLOSURES
  4042.       #46Y(02 00 00 00 00 03 00 2A 01 00 0B 00 00 A7 69 00 01 AB 99 33 16 01 64 00 00 6E 43 5F 1A
  4043.            09 83 01 00 14 AC 2F 01 7F 01 A8 89 92 73 00 19 06
  4044.           )
  4045.       #Y(DISASSEMBLE-CLOSURES-MARK
  4046.          #52Y(01 00 00 00 00 02 A8 07 00 01 58 0C 00 01 A8 6E 31 5F 1A 19 83 01 00 14 8B 07 10 A7
  4047.               8B 06 0C A7 65 00 01 37 03 88 B3 03 A7 27 5B 7F 01 A8 89 92 63 00 19 04
  4048.              )
  4049.          NIL
  4050.         )
  4051.       DISASSEMBLE-CLOSURE
  4052.   )  )
  4053. #Y(#:TOP-LEVEL-FORM-282 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DISASSEMBLE-CLOSURE
  4054.    REMOVE-OLD-DEFINITIONS
  4055.    #Y(DISASSEMBLE-CLOSURE
  4056.       #412Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 A8 30 8B A8 30 8B D6 A9 37 02 30 89 A9 6E 2F A9 30
  4057.             81 A9 2E 02 41 08 A7 D8 8F 01 1F B2 30 8B D9 B3 37 02 30 89 A7 B3 30 81 DA B3 37 02 30
  4058.             89 90 01 B3 30 81 7F 01 81 00 8E 01 61 16 02 B0 30 8B AE B1 30 81 DB B1 37 02 30 89 B0
  4059.             30 8B AD B1 30 81 DC B1 37 02 30 89 B0 30 8B 8E 05 80 44 C9 14 B1 37 02 30 89 8F 04 80
  4060.             56 AA 6E 41 B1 30 8B A7 B2 30 81 DF B2 37 02 30 89 A7 23 0B 06 E1 B2 37 02 30 89 E2 B2
  4061.             37 02 30 89 AB A7 88 92 28 90 00 7F 01 B3 30 81 A7 88 92 0D CF 14 B3 37 02 30 89 1A 68
  4062.             C8 1A FF B9 CE 1A 71 B1 30 8B E5 B2 37 02 30 89 16 01 1A 12 16 01 8E 03 6E 16 01 1A 09
  4063.             B0 30 8B E6 B1 37 02 30 89 5F A8 1A 0C 90 00 A7 E7 6C 13 80 02 16 01 7F 00 98 20 71 16
  4064.             01 A7 7C A3 00 A9 A9 6C 14 8F 00 80 A0 98 56 74 99 56 75 B4 30 8B A8 B5 30 81 D8 EA B6
  4065.             6D 90 6F 01 34 1A 39 98 56 25 17 2B 60 99 57 56 1A 0F 60 ED 9A 1A 05 60 67 19 9A 57 57
  4066.             74 32 02 33 14 30 00 1A 0C EF 99 57 1A 02 EF 99 57 74 AC 30 94 14 3F 02 1A 1A 00 1A 17
  4067.             EB B7 30 88 81 01 A8 A8 8D 01 30 74 16 02 A7 B5 30 84 98 20 FF B7 00 41 02 8F 01 32 D8
  4068.             E0 F0 B9 6D 90 6F 01 34 6F 01 31 1A 0E A7 B7 37 02 30 89 1A 1C EB B9 30 88 81 01 A8 A8
  4069.             8D 01 30 74 16 02 F1 B7 37 02 30 89 A8 23 1A 60 A7 B7 30 81 16 04 7F 00 8E 00 FF 60 16
  4070.             02 B0 30 8B 19 0B
  4071.            )
  4072.       *STANDARD-OUTPUT* "Disassembly of function " SIGNATURE 0. "(CONST " ") = "
  4073.       " required arguments" " optional arguments" "Rest parameter" "No rest parameter"
  4074.       " keyword parameter" 1. "s" ": " "." ", " "Other keywords are allowed."
  4075.       "No keyword parameters" 35. WRITE-TO-SHORT-STRING DISASSEMBLE-LAP 6. #\Space
  4076.       #S(HASH-TABLE EQ (CONST&SYMBOL-FUNCTION&STORE . 32.) (COPY-CLOSURE . 32.)
  4077.          (COPY-CLOSURE&PUSH . 32.) (CONST&SYMBOL-FUNCTION . 32.) (CONST&SYMBOL-FUNCTION&PUSH . 32.)
  4078.          (CONST&STORE . 32.) (BIND . 32.) (GETVALUE&PUSH . 32.) (GETVALUE . 32.) (SETVALUE . 32.)
  4079.          (CONST&PUSH . 32.) (CONST . 32.) (JMPIFNOTEQTO . 32.) (JMPIFEQTO . 32.)
  4080.          (CALL2&JMPIF . 32.) (CALL2&JMPIFNOT . 32.) (CALL2&PUSH . 32.) (CALL2 . 32.)
  4081.          (CALL1&JMPIF . 32.) (CALL1&JMPIFNOT . 32.) (CALL1&PUSH . 32.) (CALL1 . 32.) (CALL0 . 32.)
  4082.          (CALL&PUSH . 27.) (CALL . 27.) (CALLSR&JMPIF . 12.) (CALLSR&JMPIFNOT . 12.)
  4083.          (CALLSR&STORE . 12.) (CALLSR&PUSH . 12.) (CALLSR . 12.) (CALLS2&JMPIF . 7.)
  4084.          (CALLS2&JMPIFNOT . 7.) (CALLS2&STORE . 7.) (CALLS2&PUSH . 7.) (CALLS2 . 7.)
  4085.          (CALLS1&JMPIF . 1.) (CALLS1&JMPIFNOT . 1.) (CALLS1&STORE . 1.) (CALLS1&PUSH . 1.)
  4086.          (CALLS1 . 1.)
  4087.         )
  4088.       256. FUNTABR-INDEX STRING 42. "; "
  4089.   )  )
  4090. #Y(#:TOP-LEVEL-FORM-283 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DISASSEMBLE
  4091.    REMOVE-OLD-DEFINITIONS
  4092.    #Y(DISASSEMBLE
  4093.       #95Y(01 00 00 00 00 02 A8 85 00 10 A8 89 51 1F A8 2E 02 F7 14 D8 37 01 8B 76 17 F7 99 1F 07
  4094.            90 01 24 04 02 7F 01 A8 8A 07 0D C5 14 A9 5E 01 C1 1A 79 99 59 F7 1A 65 A8 8A 06 20 A8
  4095.            DB 6E 27 A9 DC 6E 27 AA DD 6E 27 AB DE 6E 27 AC DF 6E 27 AD E0 6E 27 AE E1 6E 27 2C 07
  4096.            0D F7 A8 2E 0E 99 19 02
  4097.           )
  4098.       FUNCTION-NAME-P "Undefined function ~S" GET-FUNNAME-SYMBOL TRACED-DEFINITION MACRO
  4099.       "Cannot disassemble ~S" 0. 1. 4. 5. 6. 7. 8. COMPILE-LAMBDA DISASSEMBLE-CLOSURE
  4100.   )  )